- 帖子
- 154
- 主題
- 1
- 精華
- 0
- 積分
- 200
- 點名
- 1
- 作業系統
- windwos 7
- 軟體版本
- 64bit
- 閱讀權限
- 20
- 註冊時間
- 2017-5-29
- 最後登錄
- 2025-1-1
|
回復 1# yenwang
Sub test()
Dim fso As Object, filledCellsCount As Integer
Set fso = CreateObject("Scripting.FileSystemObject")
Set target = fso.CreateTextFile("d:\javainput.txt", True)
filledCellsCount = 8
For i = 1 To filledCellsCount - 1
target.WriteLine Cells(i, 1)
Next
target.Write Cells(filledCellsCount, 1)
target.Close
Set fso = Nothing
End Sub |
|
發表於 2024-1-11 00:06
| 