- 最後登錄
- 2022-4-17
- 在線時間
- 0 小時
- 註冊時間
- 2022-4-17
- 閱讀權限
- 10
- 精華
- 0
- UID
- 5560596
- 帖子
- 0
- 積分
- 0 點
- 潛水值
- 20 米
| 本帖最後由 arthurliuliu 於 2009-8-15 12:16 AM 編輯
1.這個方法必須有安裝Excel
2.
- Private Sub Command1_Click()
- FileName = App.Path & "\test.xls"
- If Dir(FileName) <> "" Then Kill FileName
- Dim myExcel As Object
- Set myExcel = CreateObject("excel.application")
- myExcel.Visible = True
- myExcel.Workbooks.Add
- For i = 1 To 10
- myExcel.ActiveSheet.Cells(i, 1) = i
- myExcel.ActiveSheet.Cells(i, 2) = "列號的 10 倍是 " & i * 10
- Next
- myExcel.ActiveWorkbook.SaveAs FileName
- myExcel.Quit
- Set myExcel = Nothing
- End Sub
複製代碼 ... |
|