返回列表下一主題上一主題發帖

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

j1221

中學生 Rank: 2

帖子: 50
主題: 10
精華: 0
積分: 69
點名: 0
作業系統: Windows XP
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-6-21
最後登錄: 2015-1-11

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2012-2-9 13:07 | 顯示全部帖子

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

各位前輩好，

小弟想利用 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)")
但是好像不行，請問這種情況該怎麼處理呢?

煩請各位前輩參考附件