如何将数据导入模板生成新的EXCEL文件

如何将数据导入模板生成新的EXCEL文件

例题：要求按照已知的同格式数据导入到模板中生成新的excel文件，模板每页中30条数据，超出后自动换页，“合计”行在最后一页显示，文件名为“单位代码_单位名称”

代码：

Sub Macro1()

Dim arr, brr(), crr(1 To 30, 3 To 8), d As Object, k, t, a, i&, j&, m&, l&

Dim w As WorksheetFunction, sh As Worksheet, wb As Workbook

Application.ScreenUpdating = False

Application.DisplayAlerts = False

Set d = CreateObject("scripting.dictionary")

arr = [a1].CurrentRegion

For i = 2 To UBound(arr)

s = arr(i, 2) & "_" & arr(i, 3)

d(s) = d(s) & "," & i

Next

k = d.Keys

t = d.Items

Set sh = Sheets("模板")

Set w = WorksheetFunction

For i = 0 To d.Count - 1

a = Split(t(i), ",")

ReDim brr(1 To w.RoundUp(UBound(a) / 30, 0) * 30, 3 To 8)

For j = 1 To UBound(a)

brr(j, 3) = j

For l = 4 To 8

brr(j, l) = arr(a(j), l)

Next

Next

m = j - 1

For j = w.RoundUp(m / 30, 0) * 30 To 1 Step -30

f = j - 29

If wb Is Nothing Then

sh.Copy

Set wb = ActiveWorkbook

Else

sh.Copy Before:=wb.Sheets(1)

End If

With ActiveSheet

.[A2] = .[A2] & Split(k(i), "_")(0)

.[A3] = .[A3] & Split(k(i), "_")(1)

If m <= 30 Then

.[a5].Resize(m, 6) = brr

.Name = k(i)

Else

Erase crr

n = 0

For v = f To f + 29

n = n + 1

For l = 3 To 8

crr(n, l) = brr(v, l)

Next

Next

.[a5].Resize(30, 6) = crr

End If

End With

Next

If m > 30 Then

For j = 1 To wb.Sheets.Count

wb.Sheets(j).Name = k(i) & j

Next

End If

wb.Close True, Filename:=ThisWorkbook.Path & "\" & k(i) & ".xls"

Set wb = Nothing

Next

Application.DisplayAlerts = True

Application.ScreenUpdating = True

MsgBox "ok"

End Sub

intouch 通过Excel 生成报表

1、自动生成需要的标记名 在intouch开发环境中，将向导库中/趋势/历史向导（HistData）放入窗口，这将自动生成若干标记名（如下）。有关标记名以HDW开头，加上他们的DDE的Item命名。 标记名说明如下： HDWDataDir 消息型历史数据文件的目录的路径名，可用函数赋值。 例如：HDWDataDir = HTGetLogDirectory(); HDWDBDir 消息型intouch标记名字典的目录的路径名，可用函数赋值。 例如：HDWDBDir = InfoInTouchAppDir(); HDWStratDate 消息型与$DataString 相同格式的数据采样开始日期。 例如： HDWStartTime 消息型使用24小时时钟的HH：MM：SS 格式的数据采样开始时间 例如：09:45:33 HDWDuration 消息型数据时间长度（报表时间总长度） 可以用星期，天，时，分，秒，等来表示。下面是有效的 字符：W 星期，D 天，H 小时；M 分，S 秒。允许使用 小数值例如：表示500毫秒；若只需要一个样本，请将Duration 设为零。 HDWInterval 消息型采样间隔的时间长度 可以用星期，日，小时，分，秒来表示例如1W 表示一 星期。允许使用小数值例如:.25d 来表示6小时。有效字 符与HDWDuration相同；注意Duration 和Interval允许的最打

时间长度为6周，这适用于所有请求类型日，秒，等。例如如 果使用日则最大值为42, 7天*6周=42天。 HDWTags 消息型历史数据的标记名列表（报表中需要的标记名） 以taga,tagb;tagz格式输入，此外采样日期或时间可以通过使用 内部系统标记$Date和$Time来请求。 HDWFileName 消息型规定生成的.CSV文件的路径和名称。 例如：E:\111\ HDWWriteFile 整形当设置为1时，HistData 会将请求数据写入由FileName项目 名指定的文件，当文件更新完成后WriteFile 会自动重置为0 Status 离散型显示最后一次操作的状态 1 表示成功，0 表示出错 Error 消息型包含上次错误说明的字符串，如Status 为1 则表示无，如Status 为0 则表示错误消息字符串。 例如：下面脚本生成一个日期由StartData1规定，但包含两个标记名PI-101；TI-101，日报表。可以复制在脚本中，修改一下就可以形成所需的.CSV文件。 HDWStartDate=StartDate1; HDWStartTime=”00:00:00”; HDWDBDir=InfoIntouchAppDir(); HDWDataDir=HTGetLogDirectory(); HDWFilename=” E:\111\”; HDWTags=”$Date,$Time, PI-101,TI-101”; HDWInterval=”1H”; HDWDuration=”1D”; HDWWritefile=1; 例如：设计一个按钮，当按下按钮时，生成一个.CSV表格。生成表格的起始日期，和起始时间可调，表格时间间隔也可调。 新建内存型标签，标签数据类型为消息型：startdate 消息型；starttime 消息型

excel项目进度表模板

excel项目进度表模板 篇一:超实用!六步教你制作Excel甘特图项目进度表! 超实用～六步教你制作Excel甘特图 项目进度表～ 工具使用:请大家见谅，因家里这台电脑只有WPS所以用它来演示;但是与其他Excel操作都类似(我用过Excel2003、Excel2010不同版本做项目进度表)，如遇到问题欢迎随时联系我;谢谢～ 记得几年前第一次做项目统计时候，老板让我列一个项目时间表;我试过了很多表格，最后我选择了利用甘特图来制作项目时间表;因为它不仅美观偏亮，而且可以很直观的表明任务计划进行时间点，以及实际进展情况的对比。领导可以很清晰的评估工作进度。 很久没用差点忘记了，前几天一位朋友问我，我才想必须要把它分享出来～下面我就举例子来说明一下，快点进入正题吧～ 操作步骤: 第一步，首先要准备数据，我这里列的比较简单(如需要你还可以 1 添加)。开始时间代表项目起始时期，持续时间代表项目要经历多久～ 选择“开始时间”一列右击鼠标，选择“ 设置单元格格式” ;将日期调整为常规形态，如图: 第二步，点击鼠标选中所有数据，选择菜单栏“插入”;找到条形图—二维条形图—堆积条形图，点击选择即可。

第三步，为了显示方便，我们需要把时间轴调整到上面;然后调整间距。我们点 击纵轴(即任务名称列)右击鼠标选择 “设置坐标轴格式”。将“逆序列别”打钩～ 现在时间轴已经调整至上方了，我们还需调整中间间隔。鼠标右击横轴(即开始时间一列)，选择“设置坐标轴格式”。最小值可以根据自己的时间表而定，坐标轴的单位就是中间间隔调整为30即可。 第四步，清除图形中蓝颜色部分;点击蓝色条形框部分，右击鼠标“ 设置系列选项 ”;设置填充色为”无填充色”。 第五步，“开始时间”一列设置为常规日期格式;此时，选中表格中“开始时间”一列，右击鼠标选择“单元格格式”。 第六步，填写标题、设置其他;可以根据自己的喜好调 2 整边框及内填充颜色，最后效果就出来了。 篇二:EXCEL格式工期进度计划模板使用技巧 EXCEL格式的工期进度计划模板几点使用技巧 一、冻结窗口/取消冻结窗口 1、公司网站下载的进度计划模板,移动屏幕右下边的滚动条，仅表格右半部分移动，是因为表格设置了“窗口冻结”功能，可通过以下操作取消或设置窗口冻结。 2、点击“视图?冻结窗口?取消冻结窗口/冻结窗口”即可完成该项设置。 3、该表冻结的是“G3”单元格，即以“G3”单元格的左上角为分界线分别冻结上下、左右窗口的移动。

Intouch报表-EXCEL报表制作教程

用EXCEL打印报表 1.原理 首先根据报表要求，用INTOUCH的附件HISTDATA软件形成一个有规定数据的.CSV 文件（逗号分隔文件，可用EXCEL打开）。这个.CSV文件是英文的，不符合一般报表的要求，只能提供数据。所以需要另设计一个空的EXCEL报表模版，再将.CSV文件的数据复制到报表中，形成完整的报表。 通过INTOUCH可以自动产生.CSV，再通过EXCEL的宏程序打印报表，可以完成招呼打印和定时自动打印。 如果有多个报表，需要形成多个.CSV文件和设计多个EXCEL报表。 大致步骤如下：

2.生成.CSV文件 Step1: 自动生成需要的标记名 在INTOUCH开发环境中，将向导库中\趋势\历史趋势向导（HistData）放入窗口。这将自动形成若干标记名（Tag）。有关标记名以HDW开头加上它们的DDE的ITEM命名。 这些标记名说明如下： HDWDATADIR 消息型历史数据文件的目录的路径名，可用函数赋值 例如HDWDataDir = HTGetLogDirectory(); HDWDBDIR 消息型InTouch 标记名字典的目录的路径名，可用函数赋值 例如HDWDBDir = InfoInTouchAppDir(); HDWSTARTDATE 消息型与$DateString相同格式的数据采样开始日期HDWSTARTTIME 消息型使用24 小时时钟的HH:MM:SS 格式的数据采样开始时间HDWDURATION 消息型数据时间长度（报表时间总长度） 可以用星期，天时，分，秒，等来表示下面是有效的字 符：w 星期，d 天，h 小时，m 分，s 秒。允许使用 小数值例如扩.5s 表示500 毫秒若只需一个样本请 将DURATION 设为0 零 HDWINTERVAL 消息型采样间隔的时间长度 可以用星期日小时分和秒来表示例如1W 表示一星期 允许使用小数值例如用.25d 来表示6小时 有效字符与HDDURATION相同 注意DURATION 和INTERVAL 允许的最大时间长 度均为6 周这适用于所有请求类型日秒等例如如果 使用日则最大值为42，7 天x 6 周= 42

进度计划表格模板

进度计划表格模板 篇一：工程施工进度表样本 工程名称： 工程名称： 篇二：工程进度计划周报表 工程进度计划周报表 致：宜昌市城市建设投资开发有限公司湖北清江工程管理咨询有限公司 项目名称：平湖半岛沙河村拆迁安置房C区1#、2#楼及基坑支护工程承包商：中基建设有限公司一、本周施工完成计划情况 日期：XX年3月15日~XX年3月22日 二、下周施工计划情况 四、现场安全文明施工： 1、对现场道路进行清扫，将模板等材料分堆安放。 4、无安全事故发生。 5、对电线绝缘全面检查，对有问题电源开关、配电箱进行更换 6、对进场工人进行安全教育五、安全施工方面： 1、电路电机方面，电工班组对接零，防触电、漏电、开关、闸刀进行检查，对有问题设备进行更换。六、质量方面 1、严格控制模板标高。

2、模板支撑系统检查，对薄弱部位进行补充支撑。 3、对已拆模构件进行检查，尺寸偏差有问题部位要求班组查看并总结原因。 中基建设有限公司 XX年3月21日 工程进度计划周报表 致：宜昌市城市建设投资开发有限公司湖北清江工程管理咨询有限公司 项目名称：平湖半岛沙河村拆迁安置房C区1#、2#楼及基坑支护工程承包商：中基建设有限公司一、本周施工完成计划情况 日期：XX年1月10日~XX年1月17日 二、下周施工计划情况 四、现场安全文明施工： 1、对现场道路进行清扫，将模板等材料分堆安放。 2、对塔吊进行螺栓防锈。 3、工完场清，垃圾归堆，集中处理，做好安防值班工作。 4、无安全事故发生。 5、对电线绝缘全面检查，配电柜检查防雨措施。对给水管道进行保温防冻处理。 6、检查临边防护做好春节假期防范工作五、安全施工方面：

excel进度计划表模板

excel进度计划表模板 篇一：EXCEL格式工期进度计划模板使用技巧 EXCEL格式的工期进度计划模板几点使用技巧 一、冻结窗口/取消冻结窗口 1、公司网站下载的进度计划模板，移动屏幕右下边的滚动条，仅表格右半部分移动，是因为表格设置了“窗口冻结” 功能，可通过以下操作取消或设置窗口冻结。 2、点击“视图—冻结窗口—取消冻结窗口/冻结窗口” 即可完成该项设置。 3、该表冻结的是“ G3”单元格，即以“ G3”单元格的左上角为分界线分别冻结上下、左右窗口的移动。 二、筛选/取消筛选 1、为防止表中设置了“筛选条件”而导致内容显示不全，打开表格后应先“取消筛选” 2、点击“数据—筛选”即可完成该项设置。 3、表格填写完成或使用筛选功能时，首先选中第二行，再点击“数据—筛选”即可完成筛选设置。 4、点击相应列的下拉菜单即可进行条件筛选，上图所示“筛选单体工程4#楼” 三、需要多次重复输入的内容可设置下拉菜单点选 1、如“单体工程”、“分部工程”等在不连续的行需要多

次重复输入时，可通过“数据有效性”设置下拉菜单直接点选，减轻数据输入的工作量。 2、选中要设置的列，如“ D”列 3、点击“数据—数据有效性—数据有效性”在弹出的对话框中选择“允许”—“序列”，再点击“” 4、选中为数据有效性提前输入的内容，点击“关闭”，再点击窗口中的“确定” 篇二：超实用！六步教你制作Excel甘特图项目进度表！超实用！六步教你制作Excel甘特图 项目进度表！ 工具使用：请大家见谅，因家里这台电脑只有WPS所以用它来演示；但是与其他Excel操作都类似（我用过 Excel20XX、Excel20XX不同版本做项目进度表），如遇到问题欢迎随时联系我；谢谢！ 记得几年前第一次做项目统计时候，老板让我列一个项目时间表；我试过了很多表格，最后我选择了利用甘特图来制作项目时间表；因为它不仅美观偏亮，而且可以很直观的表明任务计划进行时间点，以及实际进展情况的对比。领导可以很清晰的评估工作进度。 很久没用差点忘记了，前几天一位朋友问我，我才想必须要把它分享出来！下面我就举例子来说明一下，快点进入正题吧！ 操作步骤：

excel,工作计划表模板

excel,工作计划表模板 篇一：工作计划,甘特表 篇一：企业(公司)工作计划进度表甘特图 XX年月工作计划进度表甘特图 篇二：企业(公司)工作计划进度表_甘特图 XX年月工作计划进度表甘特图 篇三：用excel制作甘特计划的工具如何制作excel 项目计划-blue excel工具简介项目，计划，甘特图，集成计划，资源计划，资源使用计划，excel 1. 什么是blue excel? 如何用excel制作项目计划？blue excel 是制作项目计划的强大工具。可以方便快捷的制作项目计划，生成甘特图。blue excel是一款强大的excel插件。它内置的演示程序可以帮助你迅速掌握如何使用它。大家经常使用excel制作项目计划甘特图而不是microsoft project. 因为绝大多数人都非常熟悉excel，使用excel制作甘特图简单灵活，形式多样。blue excel可以帮你更快更好的生成和维护甘特图。blue excel支持以周为，以工作日和以日历日期为单位的甘特图。你可以通过输入日期创建任务条，也可以用图形化的方式创建任务条。你可以任意移动，扩展收缩任务条。灵活的方式使甘特图维护简单快捷。你还可以设置任务条的颜色，为两个任务创建连接。这些操作是你很容易显示任务

的优先级和任务的依赖关系。任务信息可以显示在任务条上。此外你还可以为任务增加前提条件和详细信息，这些信息会显示在任务条的前面和后面。使你有更多的方式显示需要的信息。你还可以自己定制前提条件，详细信息的文本颜色。利用excel自由的优点，你可以隐藏/显示任意区域，对行或列分组，过滤任务，为文本设置颜色，添加注释，添加列，添加图形等等。所有这些都可以使你的计划更易于阅读。这些都不需要你重新学习。blue excel还支持集成计划和资源使用计划的制作。你可以创建基于图形的任务条，可以方便的移动，调整任务条，提高工作效率。此外独特的设计还使你可以为图形任务条添加注释，打破了任务条信息显示的限制，为制作完美的集成计划奠定基础。 2. 如何创建excel 项目计划？blue excel 创建的甘特图计划示例a. 打开计划工具条，弹出计划工具条。 按下“f5”或者点击“plan tool”excel工具条上按钮 计划工具条 b. 创建模板 创建一个新的excel文件，点击 创建模板。 选择模板类型，对应的模板被创建。 “gantt chart by week”基于周的甘特图计划模板。

excel计划进度表模板

excel计划进度表模板 篇一：超实用!六步教你制作Excel甘特图项目进度表! 超实用！六步教你制作Excel甘特图 项目进度表！ 工具使用：请大家见谅，因家里这台电脑只有WPS所以用它来演示；但是与其他Excel操作都类似（我用过Excel20XX、Excel20XX不同版本做项目进度表），如遇到问题欢迎随时联系我；谢谢！ 记得几年前第一次做项目统计时候，老板让我列一个项目时间表；我试过了很多表格，最后我选择了利用甘特图来制作项目时间表；因为它不仅美观偏亮，而且可以很直观的表明任务计划进行时间点，以及实际进展情况的对比。领导可以很清晰的评估工作进度。 很久没用差点忘记了，前几天一位朋友问我，我才想必须要把它分享出来！下面我就举例子来说明一下，快点进入正题吧！ 操作步骤： 第一步，首先要准备数据，我这里列的比较简单（如需要你还可以添加）。开始时间代表项目起始时期，持续时间代表项目要经历多久！

选择“开始时间”一列右击鼠标，选择“ 设置单元格格式” ；将日期调整为常规形态，如图： 第二步，点击鼠标选中所有数据，选择菜单栏“插入”；找到条形图—>二维条形图—>堆积条形图，点击选择即可。 第三步，为了显示方便，我们需要把时间轴调整到上面；然后调整间距。我们点 击纵轴（即任务名称列）右击鼠标选择 “设置坐标轴格式”。将“逆序列别”打钩！ 现在时间轴已经调整至上方了，我们还需调整中间间隔。鼠标右击横轴（即开始时间一列），选择“设置坐标轴格式”。最小值可以根据自己的时间表而定，坐标轴的单位就是中间间隔调整为30即可。 第四步，清除图形中蓝颜色部分；点击蓝色条形框部分，右击鼠标“ 设置系列选项 ”；设置填充色为“无填充色”。 第五步，“开始时间”一列设置为常规日期格式；此时，选中表格中“开始时间”一列，右击鼠标选择“单元格格式”。 第六步，填写标题、设置其他；可以根据自己的喜好调整边框及内填充颜色，最后效果就出来了。

excel计划进度表模板

竭诚为您提供优质文档/双击可除excel计划进度表模板 篇一：超实用!六步教你制作excel甘特图项目进度表! 超实用！六步教你制作excel甘特图 项目进度表！ 工具使用：请大家见谅，因家里这台电脑只有wps所以用它来演示；但是与其他excel操作都类似（我用过 excel20xx、excel20xx不同版本做项目进度表），如遇到问题欢迎随时联系我；谢谢！ 记得几年前第一次做项目统计时候，老板让我列一个项目时间表；我试过了很多表格，最后我选择了利用甘特图来制作项目时间表；因为它不仅美观偏亮，而且可以很直观的表明任务计划进行时间点，以及实际进展情况的对比。领导可以很清晰的评估工作进度。 很久没用差点忘记了，前几天一位朋友问我，我才想必须要把它分享出来！下面我就举例子来说明一下，快点进入正题吧！ 操作步骤： 第一步，首先要准备数据，我这里列的比较简单（如需

要你还可以添加）。开始时间代表项目起始时期，持续时间 代表项目要经历多久！ 选择“开始时间”一列右击鼠标，选择“ 设置单元格格式” ；将日期调整为常规形态，如图： 第二步，点击鼠标选中所有数据，选择菜单栏“插入”；找到条形图—>二维条形图—>堆积条形图，点击选择即可。 第三步，为了显示方便，我们需要把时间轴调整到上面；然后调整间距。我们点 击纵轴（即任务名称列）右击鼠标选择 “设置坐标轴格式”。将“逆序列别”打钩！ 现在时间轴已经调整至上方了，我们还需调整中间间隔。鼠标右击横轴（即开始时间一列），选择“设置坐标轴格式”。最小值可以根据自己的时间表而定，坐标轴的单位就是中间间隔调整为30即可。 第四步，清除图形中蓝颜色部分；点击蓝色条形框部分，右击鼠标“ 设置系列选项 ”；设置填充色为“无填充色”。 第五步，“开始时间”一列设置为常规日期格式；此时，选中表格中“开始时间”一列，右击鼠标选择“单元格格式”。 第六步，填写标题、设置其他；可以根据自己的喜好调