伙計們，這就是我想要做的，我在做這件事時遇到了一些麻煩。我有一本工作簿，我想從做類似這樣的不同文件中收集數據。Do While THAT_DIFFERENT_FILE_SOMEWHERE_ON_MY_HDD.Cells(Rand, 1).Value <> "" And Rand < 65536 then 'I will search if the last row in my main worksheet is in this file... End Loop 如果是，我將退出While循環，如果不是，我將復制所有內容。實際上，這將無法按我希望的方式工作，但我不會在尋找合適的算法時遇到麻煩。我的問題是我不知道如何訪問不同的工作簿。
3 回答
HUH函數
TA貢獻1836條經驗 獲得超4個贊
您可能喜歡函數GetInfoFromClosedFile（）
編輯：由于上述鏈接似乎不再起作用，因此我添加了備用鏈接1 和備用鏈接2 +代碼：
Private Function GetInfoFromClosedFile(ByVal wbPath As String, _
wbName As String, wsName As String, cellRef As String) As Variant
Dim arg As String
GetInfoFromClosedFile = ""
If Right(wbPath, 1) <> "" Then wbPath = wbPath & ""
If Dir(wbPath & "" & wbName) = "" Then Exit Function
arg = "'" & wbPath & "[" & wbName & "]" & _
wsName & "'!" & Range(cellRef).Address(True, True, xlR1C1)
On Error Resume Next
GetInfoFromClosedFile = ExecuteExcel4Macro(arg)
End Function
慕的地8271018
TA貢獻1796條經驗 獲得超4個贊
將數據從工作簿復制到另一個工作簿的最佳（也是最簡單）方法是使用Excel的對象模型。
Option Explicit
Sub test()
Dim wb As Workbook, wb2 As Workbook
Dim ws As Worksheet
Dim vFile As Variant
'Set source workbook
Set wb = ActiveWorkbook
'Open the target workbook
vFile = Application.GetOpenFilename("Excel-files,*.xls", _
1, "Select One File To Open", , False)
'if the user didn't select a file, exit sub
If TypeName(vFile) = "Boolean" Then Exit Sub
Workbooks.Open vFile
'Set targetworkbook
Set wb2 = ActiveWorkbook
'For instance, copy data from a range in the first workbook to another range in the other workbook
wb2.Worksheets("Sheet2").Range("C3:D4").Value = wb.Worksheets("Sheet1").Range("A1:B2").Value
End Sub
- 3 回答
- 0 關注
- 2907 瀏覽
相關問題推薦
添加回答
舉報
0/150
提交
取消