複製從文本文件最後一行的內容並粘貼到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 
   

我沒有測試此代碼，它應該只是告訴你一個想法它可能如何工作。