選擇第一列（A），而不是選擇中的第一列（VBA-Excel）

Question

我一直試圖做一段時間，但我很難過。我試圖通過選擇循環，以便我可以獲取一些信息並將其保存在文本文件中。它的工作原理除了當選擇不在列A中開始時，一些數據不會被帶入到文本文件中（它將列（1）作爲選擇中的第一列）。代碼如下：

Sub SaveInfoTxtFile() 

Dim oCell As Range 
Dim myRange As Range 
Dim fso As Object 
Dim oFile As Object 
Dim LastRow As Long 
Dim wholeselect As String 

Dim year As String 
Dim make As String 
Dim model As String 

Set myRange = Selection 
LastRow = ActiveSheet.Cells(ActiveSheet.Rows.Count, "A").End(xlUp).Row 
wholeselect = CStr(myRange.Row) & ":" & CStr(LastRow) 
Set fso = CreateObject("Scripting.FileSystemObject") 
Set oFile = fso.CreateTextFile("C:\SSE\test.txt") 

Rows(wholeselect).Select 

For Each oCell In myRange 

year = oCell.Columns(1).Text 
make = oCell.Columns(2).Text 
model = oCell.Columns(3).Text 

oFile.WriteLine year & " " & make & " " & model 
oFile.WriteLine 

Next oCell 

oFile.WriteLine "Name: Blah" 
oFile.WriteLine "Company: Blah2" 
oFile.Close 
Set fso = Nothing 
Set oFile = Nothing 

End Sub 

建議？

Answer 1

這裏有兩個方法來解決這個問題：

year = oCell.EntireRow.Columns(1).Text 

恕我直言，這將是最好設置在你循環，使整個行合併範圍。在循環內執行效率較低。

set myRange = rows(wholeselect).EntireRow 
For Each oCell In myRange 
...