[發問] 請問該如何比對陣列中的資料與工作表姓名 ?

各位前輩好，

小弟想利用 vba每天收盤後更新op的價格和未平倉資料，但是在執行上遭到一些問題，還請各位幫忙解答，我的問題如下:(模組三，煩請參閱附件)。

我先用外部連結更新台期所的資料，然後提取出來儲存到陣列A裡面，之後再利用迴圈把儲存照順序存入指定的工作表和儲存格，出問題的地方有兩個:

1.當我把所有資料存入陣列，我要先判斷相對應的工作表是否已存在(比如說5600履約價)，所以我寫了一個小的迴圈判斷

For iM = 1 To isheetsnumber 'small loop to test if the worksheet exists, exists =true otherwise false
If ThisWorkbook.Sheets(iM).Name = varA(I, 1, 8) Then
Sheets_Exist = True:Exit For
Else
Sheets_Exist = False
End If
Next iM

複製代碼

這邊的varA(I,1,8)就是我的陣列之一(更外面還有一個I的 For 迴圈)，但不管我怎麼測式，出來的都是False

2.第二個問題是，假設可以找到這個工作表，我想要把對應的資料由迴圈內填進去，所以我要【指定這個名字】的工作表，不知道該怎麼做?
我原先很白癡的以為可以用
With Sheets("varA(I,1,8)")
但是好像不行，請問這種情況該怎麼處理呢?

煩請各位前輩參考附件

OP_OI.rar (105.7 KB)

謝謝各位的幫忙:D

樓主熱帖

我愛麻辣家族討論區！！

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 14
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-6

2^#

發表於 2012-2-9 22:21 | 只看該作者

回復 1# j1221

1. 如果只會開一個 Excel 檔, 則不用打 ThisWorkbook, 若怕同時可能開啟超過一個 Excel 檔案,
則請於開檔時就直接設定指標到該檔,否則若使用 ThisWorkBook 還是可能會抓到另一個檔案的內容.
例如 :
在 Module 裡加上
Dim vOP_OI

再在 Workbook_Open 裡加上
set vOP_OI=ThisWorkbook

引用時則可用 vOP_OI.Sheets(2).Name 來抓取 Sheet 的 Name

2. 要引用 Sheet 的名字時, Variant 外不用再加 ""

因為你的檔案我這裡不能正常執行, 所以我針對你所說的問題點,另外用一個程式來模擬,你參考看看 :

Private Sub Workbook_Open()
Dim iI%, iJ%
Dim vShtName(10, 2, 8)
Set vOP_OI = ThisWorkbook
iJ = Sheets.Count
For iI = 1 To iJ
vShtName(iI, 2, 8) = Sheets(iI).Name
Debug.Print Sheets(iI).Name = vShtName(iI, 2, 8)
Next iI
For iI = 1 To iJ
Sheets(vShtName(iI, 2, 8)).Cells(1, 1) = Sheets(vShtName(iI, 2, 8)).Cells(1, 1) + iI
Next iI
MsgBox vOP_OI.Sheets(2).Cells(1, 1)
End Sub

複製代碼

OP_OI_test.zip (7.48 KB)
請進巨集的編輯器後按 F8 單步執行觀察相關變數異動情形, 希望能對你有所幫助.

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

3^#

發表於 2012-2-10 07:34 | 只看該作者

回復 1# j1221
If ThisWorkbook.Sheets(iM).Name = varA(I, 1, 8) & "" Then
工作表名稱是 "字串", varA(I, 1, 8) 是數字 & "" 連結自符號轉變為字串
附檔 Private Sub Workbook_Open()
Sheets("TXF").[B7:P18007] = "" 沒這工作表

所有的 Module 一般模組只可以有一個 Sub Auto_Open()

TOP

j1221