[發問] office 2010 vba轉到office2000的問題

lionliu

各位大哥好
小弟最近office2010作一個vb在office2000執行會出錯，以下是我的內容
我知道有版本問題但是因為不知在office2000要如何處理。
Sub chkno()
'
'
Dim myrow As Long
Dim myrange As Range
Dim i As Integer
    myrow = Range("a1").End(xlDown).Row
    For i = 2 To myrow
        Set myrange = Cells(i, 4)
        If myrange.Value >= 1 Then
           Cells(i, 5).Value = _
           Cells(i, 3) & String(4 - Len(myrange), "0") & myrange
        End If
    Next
           
End Sub

Hsieh

回復 1# lionliu

是否出現溢位的錯誤?
    Dim i As Long

linyancheng

Integer似乎會使效率變差，一律用long

lionliu

回復 2# Hsieh


    感謝H大回覆
我想我的錯誤不在版本問題，我資料巨集若單獨執行是OK的。
但是若所有巨集再一起會產生找不到專案或程式庫。
若獨立到另一個新檔就OK。
錯誤發生點再 STRINGS這函數。
有點不知如何處理。

Hsieh

回復 4# lionliu

4 - Len(myrange)
是否會成為負值？

lionliu

回復 5# Hsieh
謝謝大家已解決
但是是用笨方法OFFICE2000開檔後再匯入模組
就可以，所以不清楚真正原因在哪。
不過在此謝謝 各位大哥熱心的回覆喔。
:D :D