[發問] 使用儲存格設定來指定活頁

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

2^#

發表於 2021-12-8 16:28 | 只看該作者

回復 1# 蘿蔔泥

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

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

帖子: 36
主題: 10
精華: 0
積分: 93
點名: 0
作業系統: win10
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2018-2-27
最後登錄: 2022-2-25

3^#

發表於 2021-12-8 17:14 | 只看該作者

回復 2# samwang

這個是不是也能參照設定頁的資訊呢？
>> 這是什麼意思? 你的設定頁B1已有年度，這不是很好嗎?>>不好意思，我不太懂你的意思
另外也可以將2個檔案同時放在同一個資料夾，這樣就不用設定年度，可以直接開啟另一個檔案
>>是放在同一個年度的資料夾裡，
我寫不出來的是 Workbooks("2.年度訓練計畫表").Worksheets("連結總表").Cells(r, 1) = Workbooks("1.年度訓練總表-109").Sheets("總表").Range("a" & i)
要如何讓Workbooks("1.年度訓練總表-109")跟著設定頁變動

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

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

4^#

發表於 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)

帖子: 36
主題: 10
精華: 0
積分: 93
點名: 0
作業系統: win10
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2018-2-27
最後登錄: 2022-2-25

5^#

發表於 2021-12-13 09:29 | 只看該作者

回復 4# samwang

您好，因為我的資料夾裡面不只一個excel檔，可以用指定的方式嗎？
Workbooks("1.年度訓練總表-109")-->>這個能隨設定頁變動嗎？

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

6^#

發表於 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

帖子: 36
主題: 10
精華: 0
積分: 93
點名: 0
作業系統: win10
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2018-2-27
最後登錄: 2022-2-25

7^#

發表於 2021-12-14 14:56 | 只看該作者

回復 6# samwang

好的，謝謝，最近比較忙我會再找時間測試
另外想請問Workbooks("1.年度訓練總表-109")-->>這個能隨設定頁變動嗎？

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

8^#

發表於 2021-12-14 15:25 | 只看該作者

回復 samwang
好的，謝謝，最近比較忙我會再找時間測試
另外想請問Workbooks("1.年度訓練總表-10 ...
蘿蔔泥發表於 2021-12-14 14:56

另外想請問Workbooks("1.年度訓練總表-109")-->>這個能隨設定頁變動嗎？
>> 不太能了解您的意思，可舉例一些範例嗎? 謝謝

帖子: 36
主題: 10
精華: 0
積分: 93
點名: 0
作業系統: win10
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2018-2-27
最後登錄: 2022-2-25

9^#

發表於 2021-12-30 17:09 | 只看該作者

請問是哪裡出錯了嗎？一直出現執行錯誤

Sub 完成_總結new()
i = 2
If Range("a2") = "" Then
r = 2
Else
r = Range("a1").End(xlDown).Row + 1
End If
SNAME = Sheets("設定頁").Range("B5")
Workbooks.Open Filename:=SNAME
Do While Range("a" & i) <> ""
Workbooks("2.年度訓練計畫表").Sheets("連結總表").Cells(r, 1) = Workbooks("SNAME").Sheets("總表").Range("a" & i)
Workbooks("2.年度訓練計畫表").Sheets("連結總表").Cells(r, 2) = Workbooks("SNAME").Sheets("總表").Range("e" & i)
Workbooks("2.年度訓練計畫表").Sheets("連結總表").Cells(r, 3) = Workbooks("SNAME").Sheets("總表").Range("f" & i)
Workbooks("2.年度訓練計畫表").Sheets("連結總表").Cells(r, 4) = Workbooks("SNAME").Sheets("總表").Range("j" & i)
Workbooks("2.年度訓練計畫表").Sheets("連結總表").Cells(r, 5) = Workbooks("SNAME").Sheets("總表").Range("i" & i)
Workbooks("2.年度訓練計畫表").Sheets("連結總表").Cells(r, 6) = Workbooks("SNAME").Sheets("總表").Range("d" & i)
Workbooks("2.年度訓練計畫表").Sheets("連結總表").Cells(r, 7) = Workbooks("SNAME").Sheets("總表").Range("l" & i)
Workbooks("2.年度訓練計畫表").Sheets("連結總表").Cells(r, 8) = Workbooks("SNAME").Sheets("總表").Range("m" & i)
Workbooks("2.年度訓練計畫表").Sheets("連結總表").Cells(r, 9) = Workbooks("SNAME").Sheets("總表").Range("q" & i)
Workbooks("2.年度訓練計畫表").Sheets("連結總表").Cells(r, 10) = Workbooks("SNAME").Sheets("總表").Range("t" & i)
Workbooks("2.年度訓練計畫表").Sheets("連結總表").Cells(r, 11) = Workbooks("SNAME").Sheets("總表").Range("ab" & i)
Workbooks("2.年度訓練計畫表").Sheets("連結總表").Cells(r, 12) = Workbooks("SNAME").Sheets("總表").Range("y" & i)
Workbooks("2.年度訓練計畫表").Sheets("連結總表").Cells(r, 13) = Workbooks("SNAME").Sheets("總表").Range("z" & i)
' Workbooks("2.年度訓練計畫表").Worksheets("連結總表").Cells(r, 14) = Workbooks("SNAME").Sheets("總表").Range("aa" & i)
If Workbooks("SNAME").Sheets("總表").Range("j" & i) = "外訓" And Workbooks("SNAME").Sheets("總表").Range("q" & i) <> "" Then
Workbooks("2.年度訓練計畫表").Sheets("連結總表").Cells(r, 14) = "詳如明細"
Else
Workbooks("2.年度訓練計畫表").Sheets("連結總表").Cells(r, 14) = Workbooks("SNAME").Sheets("總表").Range("aa" & i)
End If
r = r + 1
i = i + 1
Loop
Workbooks(SNAME).Close
'x = WorksheetFunction.CountIf(Sheets("連結總表").Range("c:d"), Range("m:m"))
End Sub

複製代碼

教育訓練.zip (70.35 KB)

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

10^#

發表於 2022-1-4 11:26 | 只看該作者

本帖最後由 samwang 於 2022-1-4 11:28 編輯

請問是哪裡出錯了嗎？一直出現執行錯誤
蘿蔔泥發表於 2021-12-30 17:09

我用之前提供6#程式碼執行結果無誤如圖片，都有符合您的需求，
選檔案-->然後複製資料-->貼到"連結總表"
請再測試看看，謝謝

22.JPG (274.09 KB)