我想复制位于文件夹中的excel文件中的特定列并将所有值粘贴到新的Excel表格中。复制多个excel文件中的列数据并将其粘贴到新的excel文件中
Completed-
- 我能够循环通过位于一个文件夹中的所有文件。
- 我可以复制特定列中的数据。
无法完成:
- 无法能够粘贴复制的数据。
- 我想只复制不同的值。
- 我想复制列直到行在那里。如果有7 行,则复制7列的值。我的复制命令正在复制所有的 直到Excel表的最后一行的值。
我的代码(VBScipt) -
strPath="C:\Test"
Set objExcel= CreateObject("Excel.Application")
objExcel.Visible= True
Set objExcel2= CreateObject("Excel.Application")
objExcel2.Visible= True
objExcel2.Workbooks.open("C:\Test\New Folder\4.xlsx")
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFso.GetFolder (strPath)
For Each objFile In objFolder.Files
If objFso.GetExtensionName(objFile.Path) = "xlsx" Then
objExcel.Workbooks.Open(objFile.Path)
Set Source=objExcel.Activeworkbook.Sheets(1).Columns("G")
Source.Copy
Set dest=objExcel2.Activeworkbook.Sheets(1).Columns("A")
dest.Paste
objExcel.Activeworkbook.save
objExcel.Activeworkbook.close
objExcel2.Activeworkbook.save
objExcel2.Activeworkbook.close
End If
Next