从文本文件中复制最后一行的内容并粘贴到excel列中

Question

我想为以下场景编写批处理文件：

我有多个文本文件，如1.txt，2.txt ... n.txt。 现在我想从文本文件中复制最后一行并将其粘贴到指定的excel表colunm中，如coln B或H.

任何人都可以帮助我吗？

由于

Answer 1

在VBScript中你可以这样做：

1. 创建您的Excel文件

   Set objExcel = CreateObject("Excel.Application")
   Set objWorkbook = objExcel.Workbooks.Open("C:\test.xls")
   

2. 循环浏览文本文件，打开它们并阅读最后一行

   Set n = 10 'the number of your files
   For i = 0 To n 
   
       Const ForReading = 1
   
       Set objFSO = CreateObject("Scripting.FileSystemObject")
       Set objFile = objFSO.OpenTextFile(i & ".txt", ForReading)
   
       Do Until objFile.AtEndOfStream
           strLine = objFile.ReadLine
       Loop
   
       objFile.Close
   

3. 将strLine中存储的数据写入您的Excel文件

       objExcel.Application.Visible = True
       objExcel.Workbooks.Add
       objExcel.Cells(i, 1).Value = strLine
   
   Next
   

4. 保存并关闭您的Excel文件

   objExcel.ActiveWorkbook.Save "C:\test.xls"
   objExcel.ActiveWorkbook.Close
   
   objExcel.Application.Quit
   

我没有测试过这段代码，它应该只是告诉你它是如何工作的。