請問哪個高手,可以幫我解釋下段程式的意義
Dim MyXlsApp As New Excel.Application
Private Sub Command1_Click()

Dim R As Long, C As Integer
MyXlsApp.Workbooks.Open "檔名.xls"
MyXlsApp.Workbooks(1).Activate
For R = 1 To MyXlsApp.Cells.CurrentRegion.Rows.Count
For C = 1 To MyXlsApp.Cells.CurrentRegion.Columns.Count
Text1.SelText = MyXlsApp.Cells(R, C).Value & Chr(9)
Text1.SelLength = 0
Next
Text1.SelText = vbNewLine
Text1.SelLength = 0
Next
MyXlsApp.ActiveWindow.Close False
MyXlsApp.Quit
Set MyXlsApp = Nothing
End Sub
我在執行時出現了錯誤訊息"不正確的NEW關鍵字用法",應該如何改善?如果方便的話,請寫入程式,教教我該怎麼作,謝謝!!
arrow
arrow
    全站熱搜

    vbqa 發表在 痞客邦 留言(1) 人氣()