使用儲存格設定來指定活頁 - Excel程式區

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2026-5-26

1^# 跳轉到 »

發表於 2021-12-8 16:28 | 顯示全部帖子

回復 1# 蘿蔔泥

這個是不是也能參照設定頁的資訊呢？
>> 這是什麼意思? 你的設定頁B1已有年度，這不是很好嗎?
另外也可以將2個檔案同時放在同一個資料夾，這樣就不用設定年度，可以直接開啟另一個檔案

另外想請問有辦法不打開活頁簿就能抓取資料出來嗎？
>> 可以開啟檔案後資料裝入陣列就關閉檔案，然後最後做資料處理，這樣應該很快才對。

TOP

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2026-5-26

2^#

發表於 2021-12-9 09:28 | 顯示全部帖子

回復 3# 蘿蔔泥

是放在同一個年度的資料夾裡，
我寫不出來的是 Workbooks("2.年度訓練計畫表").Worksheets("連結總表").Cells(r, 1) = Workbooks("1.年度訓練總表-109").Sheets("總表").Range("a" & i)
要如何讓Workbooks("1.年度訓練總表-109")跟著設定頁變動
>> 2個檔案放在同一個資料夾，只要開啟"2.年度訓練計畫表"就會自動抓取"1.年度訓練總表-109"資料，請測試看看，謝謝

新增資料夾.zip (130.74 KB)

TOP

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2026-5-26

3^#

發表於 2021-12-13 10:02 | 顯示全部帖子

回復 samwang
您好，因為我的資料夾裡面不只一個excel檔，可以用指定的方式嗎？
Workbooks("1. ...
蘿蔔泥發表於 2021-12-13 09:29

改用選擇檔案方式，請測試看看，謝謝
Sub test()
Dim FileOrg$, fc%, wb, a, Dr, Sr, j%
Application.ScreenUpdating = False: Application.DisplayAlerts = False
FileOrg = ActiveWorkbook.Name
Sheets("連結總表").[a1].CurrentRegion.Offset(1) = ""
With Application.FileDialog(msoFileDialogOpen)
.InitialFileName = "D:\"
.Title = "===========選擇  ""年度訓練總表""  檔案==========="
.AllowMultiSelect = False: .Show
fc = .SelectedItems.Count: If fc = 0 Then Exit Sub
a = .SelectedItems(1)
Set wb = Workbooks.Open(a)
With Sheets("總表")
      If .FilterMode Then .ShowAllData
      Set xA = .[a1]
      R = xA(Rows.Count, 1).End(xlUp).Row
      Dr = Array(1, 5, 6, 10, 9, 4, 12, 13, 17, 20, 28, 25, 26, 27) '資料來源
      Sr = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14)    '順序
      For j = 0 To UBound(Dr)
         Workbooks(FileOrg).Sheets("連結總表").Cells(2, Sr(j)).Resize(R).Value = xA(2, Dr(j)).Resize(R).Value
      Next
End With
End With
wb.Close
Set wb = Nothing:  Set xA = Nothing
Application.ScreenUpdating = True: Application.DisplayAlerts = True
End Sub

TOP

samwang