軟體:Excel
版本:2013
各位版上的大大早安。我有一個觀念性的問題想不通。
我剛寫好一個Module，為了讓Code好讀，我進行了順序的編排。
但是，重新編排後的執行結果卻與想像中的不同。
想請大大指導一下，我的觀念哪裡出了問題。感恩。
這是一個游走在兩個檔案間的複製與貼上動作模組
我把"找該工作頁最後一筆資料"這一段程式碼放入"寫入檔案"下的With fileA後面。
該Module是存在於B檔案
我嘗試著把每一段是在A檔案還是B檔案工作的關係標示出來。
但是還是不知道為什麼移了位置後，執行結果跟預期的不同。
以這段Code的結果應該是從最後一筆(row)往下寫。
但是一旦移了，他就一直寫第18 row.
我有嘗試用監看式去看index_row確實是17。
但我就不明白，為什麼index_row會是17，而且一直在17。
移位置之前的執行結果是正確的。
因為找最後一筆資料是在A檔案中尋找。
而以我的設定方式With fileA之後的操作不是應該在A檔案中了嗎？
以下是該Module的Code。
'=======================找尋絕對路徑與讀檔============ B檔案
dpath = ThisWorkbook.Path
MsgBox ThisWorkbook.Path
Fname = Range("B1").Value
Workbooks.Open Filename:=dpath & "\" & Fname & ".xlsx"
Set fileA = Workbooks(Fname & ".xlsx")
'=====================================================
'=======================找該工作頁最後一筆資料======== A檔案
Application.Goto reference:=ActiveSheet.Range("A1")
ActiveSheet.Range("A1").End(xlDown).Select
index_row = Selection.Row
index_column = Selection.Column
'=====================================================
'=======================複製資料====================== B檔案
ThisWorkbook.Activate
Head(1) = Range("B2").Value
Head(2) = Range("B1").Value
Head(3) = Range("B3").Value
Head(4) = Range("H2").Value
Head(5) = Range("H1").Value
Head(6) = Range("L1").Value
For m = 0 To 12
For n = 0 To 11
DataArray(m, n) = Cells(5 + m, 2 + n).Value
Next n
Next m
'dim DataArray as variant
'DataArray = activesheet.range("B5:M17")
'=====================================================
'=======================寫入檔案====================== A檔案
With fileA
array_counter = index_row + 1
For i = 1 To 6
.ActiveSheet.Cells(array_counter, i) = Head(i)
Next i
For m = 0 To 12
For n = 0 To 11
.ActiveSheet.Cells(array_counter, i) = DataArray(m, n)
i = i + 1
Next n
Next m
Application.DisplayAlerts = False '關閉提醒
.Close True '關閉檔案
End With
'=====================================================
End Sub