1
我正在努力制作一个自动化模板,该工具将多个csv文件导入到我创建的Excel模板中的多个工作表中。VBA将多个CSV文件导入到excel中的多个工作表
到目前为止,我在模板中有一张名为“结果”的表格和一个名为“登录ID”的列。我写了下面的脚本来自动创建表单并命名它们。在行我的表中的数据开始7
每个CSV文件,我不得不进口的一个名字命名的登录ID的作为,他们也将位于同一文件夹中,我创建的模板。
CSV文件需要稍作修改以从第一列中分离日期和时间。
' Columns("A:A").Select
' Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
' Columns("B:B").Select
' Selection.Cut Destination:=Columns("A:A")
' Columns("A:A").Select
' Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _
' FieldInfo:=Array(Array(0, 1), Array(10, 1)), TrailingMinusNumbers:=True
' Columns("A:A").Select
' Selection.NumberFormat = "mm/dd/yy;@"
' Columns("B:B").Select
' Columns("B:B").EntireColumn.AutoFit
'
任何想法,如果我在正确的轨道上或如何最好地解决我的CSV导入困境将不胜感激。
请问您可否进一步解释?您想为每个需要导入的CSV文件创建一个工作表。它实际上是循环遍历一个包含所有.csv文件的文件夹,并将它们逐个导入到您不确定的每个指定表单中?如果你不确定如何开始,我会建议看看'QueryTables.Add'方法 – kpg987