[VBA] 讀取檔案欄位

[darklimit (Yu)]

請問各位大神
目前程式是寫在A檔案
然後現在B檔案也有打開
但現在這樣寫法B檔案會無法讀取
應該怎麼修改比較好，謝謝

Windows(“B..xlsx”).Activate
row1 = Sheet1.Cells(1,3).End(xlDown).Row


在A檔案裡
這樣執行是沒問題的

Windows(“A.xlsx”).Activate
row1 = Sheet1.Cells(1,3).End(xlDown).Row

-----
Sent from JPTT on my iPhone

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 42.73.118.235 (臺灣)
※ 文章網址: https://www.ptt.cc/bbs/Visual_Basic/M.1637823405.A.835.html
→ lalacos123: 你的無法讀取是?抓不到值?會show error?
→ darklimit: 會出現陣列索引超出範圍
推 chunchanhung: Windows(“B..xlsx”).Activate
→ chunchanhung: 名稱 多了一個”.”
→ darklimit: 那是發文誤打啦，實際上沒有打到兩個點，抱歉造成誤會.
→ darklimit: ..
推 a24626296: B有幾個sheet?
→ lalacos123: 還是sheets(1)不是sheet1 如果你沒先set過的話
推 napyang: 建議可以不需要用active的方式。改成set BookB=workboo
→ napyang: ks(“B…xlsx”)，然後用BookB.worksheets(1).cells(ba
→ napyang: labala)去取值
→ waiter337: 直接用檔名比較穩 workbook("a.xlsx").sheet1........
→ waiter337: 很臭很長可以直接 set ws=workbooks("a.xlsx").sheet1.
→ waiter337: 後面這一長串就用ws代替就可以了
→ waiter337:     ^的程式碼,假如要用到
→ waiter337: windows(xxx).active 這段其實不好用
→ darklimit: 感謝各位大神，後來用Set去寫就可以了，謝謝～