PJChen

　暱稱: PJ

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2019-4-21 16:23 | 顯示全部帖子

[發問] 儲存格索引值

各位先進好,

想請教一個VBA的寫法
我將程式所在的儲存格
B1設為要執行的檔案名稱
B2設為工作表名稱,且以數字命名
B3設為從第N個sheet開始起算
B4設為一個日期的值
問題：
以下程式寫法,只能索引到要執行的檔案去,其他都不起作用,
例如：
B2本來是指向特定工作表,但因為以數字命名,就被當成是第n個工作表,老是跑錯sheet
B3則還寫不出來
B4所設定的日期,則無法貼上指定的sheet

請問以下程式該如何修改？

Sub 測試()
Dim Wb As Workbook, Sh As Worksheet, x As Range
Set Wb = Workbooks(Workbooks("Macro.xlsm").Worksheets("VBA").Range("B1").Value) '儲存格的值為檔案名稱
Set Sh = Wb.Worksheets(Worksheets("VBA").Range("B2").Value) '儲存格的值為工作表名稱
Sh.Activate
With Sh
Set x = .Range("B4")
x = Range("B4").Value '指定1.sheet日期
End With
End Sub

複製代碼

樓主熱帖

PJChen

　暱稱: PJ

大學生 Rank: 4

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

2^#

發表於 2019-4-24 23:55 | 顯示全部帖子

回復 4# jcchiang

謝謝你,改為text真的就可以了！
剩下第4個問題還沒解決
可以的話,也請指導一下,謝謝

測試.rar (40.88 KB)

B6為指定資料夾名稱A
裡面有N個檔案
每個檔案的工作表都以數字命名,例:1…2…3…
程式寫在Macro.xlsm中,
我想指定的工作表名稱放在B2欄位
而要寫人的值放在B4欄位
指定寫入的儲存格為放在B2欄位
我把所要做的事都放在Macro.xlsm的工作表VBA中,
只要從這裡修改值,就可以幫我寫入資料
請問要如何寫這段VBA?可以讓它依序寫入指定的資料夾A?

TOP

PJChen

　暱稱: PJ

大學生 Rank: 4

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

3^#

發表於 2019-4-26 21:52 | 顯示全部帖子

回復 6# jcchiang

您好,

Workbooks("Macro.xlsm").Worksheets("VBA").Range("B1")儲存格雖有指名檔名,但是給其他程式用的,
在這個程式中,我是想依序寫入指定的值到A資料夾的所有檔案中(不包含子資料夾),所以不能用指名檔名方式.

TOP

PJChen

　暱稱: PJ

大學生 Rank: 4

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

4^#

發表於 2019-4-28 22:01 | 顯示全部帖子

回復 8# 准提部林

大大好,
我改了檔名,程式在Macro.A無法執行,試了很多次都不行！可是貼在正式版又可以,用你的檔案也可以,我查不出原因,可否幫忙看一下?
不過就那次執行有些問題:
1. Macro.A是我用來測試的,正式版的裡面有很多的VBA,這個程式執行後,會幫我貼上
佳乳-全台.xlsx
比菲多-OK.xlsx
比菲多-全台.xlsx
這三個檔"(V)寫入完成",在F:H,而且明明只有三個檔,它卻貼了很多次,一直循環很長一串至168列,
這會把我正式版的Macro.xlsm的版面破壞掉,所以我把寫入的功能暫時取消,
2. 當資料夾不是在Macro.xlsm的同一個地方,而是其它路徑時,改成以下是否正確?
例如 W:\倉儲共用\C,改寫路徑 P = .Path & "W:\倉儲共用\C &"\"

測試3.rar (41.64 KB)

TOP

PJChen

　暱稱: PJ

大學生 Rank: 4

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

5^#

發表於 2019-5-17 20:39 | 顯示全部帖子

回復 8# 准提部林
回復 10# ChuckBucket

二位好,
這段時間,一有機會就進行測試,但無論如何,程式執行結果還是有問題,請幫忙解惑...

測試2.rar (48.68 KB)

執行程式的問題:(我把執行結果留在檔案中,希望有助於了解原因)
執行後只有3個檔,卻列了100多行
只測了3個檔,但Run得有點久,不知問題出在哪?
執行後不需要把檔案名稱列出來
本來自行把以下二行變成註解,但還是會寫在其他欄位,請問該如何修改程式,才能讓它不要把檔案名稱列出?
[F1:H999].ClearContents: Set xA = [F1]
If Not xS Is Nothing Then xS.Range(R) = T: xB.Save: xA(1, 3) = "(V)寫入完成"
當資料夾變更路徑時,該如何修改寫法?例如:路徑改為W:\0_自訂表單\日常表格\
與程式不在同一資料夾時?

TOP

PJChen