打開並讀取不含表單名稱的CSV文件

Question

我正在嘗試編寫VBA代碼，它將讀取給定的CSV文件名並在寫入另一個CSV文件之前對數據進行一些更改。

Set oSht_Input = Workbooks.Open(file_Path, UpdateLinks:=False).Worksheets(extractDataFile.convertedSheetName) 
lastRow = oSht_Input.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row 

For Rows = 2 To lastRow 
    extractedDataFileRecord.Variable1 = CStr(oSht_Input.Cells(Rows, 1)) 

.... code continues 

此代碼通常工作正常。

但是，缺點是CSV文件只會將文件名稱複製到表格名稱中。因此，我可以安全地假定變量convertedSheetName與提供的文件名相同。

如果文件名太短而無法複製到工作表名稱中，此代碼將起作用。但是，如果文件名太長，文件名將在表名中截斷，因此我無法獲得設置Worksheet對象的正確引用。

有沒有更好的方法來真正獲取圖紙參考，以便我可以讀取表格中的單元格值？

Answer 1

如果您正在使用Workbooks.Open，那麼該流程本質上是一個文件►打開，而不是導入到現有或新的工作表。以這種方式打開CSV時，只有一個工作表。使用Sheets(1)工作表對象集合參考或Sheet1工作表代碼名稱來引用它。例如：

Dim rw As Long, lastRow As Long, file_Path As String, wb As Workbook, oSht_Input As Worksheet 

file_Path = "something" 
Set wb = Workbooks.Open(file_Path, UpdateLinks:=False) 
Set oSht_Input = wb.Sheets(1) 

With oSht_Input 
    lastRow = .Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row 
    For rw = 2 To lastRow 
     'do stuff to .Cells or .Range here 
     extractedDataFileRecord.Variable1 = CStr(.Cells(rw, 1)) 
    Next rw 
End With 

Set oSht_Input = Nothing 
Set wb = Nothing 

這應該讓你去。我已使用With ... End With中的工作表參考，以便後續的.cells和.range參考只需以顯示父項的句號開頭。