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

Question

我想写以下情形的批处理文件：

我有这样的1.txt，2.txt多个文本文件... N。文本。 现在我想复制从文本文件的最后一行，并将其粘贴到指定的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 
   

我没有测试此代码，它应该只是告诉你一个想法它可能如何工作。