請問我在迴圈是使用小數點計數，可是遇到1.0會出現問題
- 帖子
- 16
- 主題
- 4
- 精華
- 0
- 積分
- 52
- 點名
- 0
- 作業系統
- Win 7
- 軟體版本
- 2010
- 閱讀權限
- 20
- 性別
- 男
- 來自
- Taiwan
- 註冊時間
- 2011-7-6
- 最後登錄
- 2011-12-1
|
請問我在迴圈是使用小數點計數，可是遇到1.0會出現問題
請問各位大大：
1.
for i = 0.6 to 12.4 step 0.1
Workbooks.Open "D:\不同材料的pattern比較 20110704\OF_Form_pol_v01\OF_Form_pol_v01@" & i & "GHz.csv"
next
只是遇到 1.0 、 2.0 、…12.0都會出現問題，請問各位大大如何決解呢？
2. 那變數 i 在上面用的迴圈要如何宣告呢？
感恩~~ |
|
|
|
|
|
|
|
- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
2#
發表於 2011-7-29 10:37
| 只看該作者
回復 1# xyzw7
Workbooks.Open "D:\不同材料的pattern比較 20110704\OF_Form_pol_v01\OF_Form_pol_v01@" & Format(i, "0.0") & "GHz.csv" |
|
|
|
|
|
|
|
- 帖子
- 16
- 主題
- 4
- 精華
- 0
- 積分
- 52
- 點名
- 0
- 作業系統
- Win 7
- 軟體版本
- 2010
- 閱讀權限
- 20
- 性別
- 男
- 來自
- Taiwan
- 註冊時間
- 2011-7-6
- 最後登錄
- 2011-12-1
|
3#
發表於 2011-7-29 13:28
| 只看該作者
回復 2# GBKEE
Dear 大大：
我用您的方法試了…還是無法開啟 1.0 的檔案，並我的程式如下：
Sub test()
For i = 0.6 To 2# Step 0.1
Workbooks.Open "D:\不同材料的pattern比較 20110704\OF_Form_pol_v01\OF_Form_pol_v01@" & Format(i, "0.0") & "GHz.csv"
Next
End Sub
在迴圈終點一直出現如上面顯示(不論是 1.0 顯示 1# 或是 2.0 顯示 2#)！ |
|
|
|
|
|
|
|
- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
|
4#
發表於 2011-7-29 13:46
| 只看該作者
回復 3# xyzw7
Dim i As Double 宣告為Double 資料型態 或 Dim i 宣告為任何 資料型態 |
|
|
|
|
|
|
|
- 帖子
- 16
- 主題
- 4
- 精華
- 0
- 積分
- 52
- 點名
- 0
- 作業系統
- Win 7
- 軟體版本
- 2010
- 閱讀權限
- 20
- 性別
- 男
- 來自
- Taiwan
- 註冊時間
- 2011-7-6
- 最後登錄
- 2011-12-1
|
5#
發表於 2011-7-29 16:49
| 只看該作者
回復 4# GBKEE
大大：測試ok ! 感謝~~ |
|
|
|
|
|
|
|
