- 帖子
- 153
- 主題
- 1
- 精華
- 0
- 積分
- 199
- 點名
- 18
- 作業系統
- windwos 7
- 軟體版本
- 64bit
- 閱讀權限
- 20
- 註冊時間
- 2017-5-29
- 最後登錄
- 2024-5-17
|
試試
Sub test()
Dim f As Integer, temp(1 To 3)
f = FreeFile
Open "c:\test.txt" For Output As #f
For i = 1 To 5
For j = 1 To 3
temp(j) = Chr(34) & Cells(i, j) & Chr(34)
Next j
Print #f, Join(temp, ",")
Next i
Close #f
End Sub |
|
發表於 2019-6-10 22:05
| 