- 帖子
- 104
- 主題
- 10
- 精華
- 0
- 積分
- 114
- 點名
- 0
- 作業系統
- Windows 10
- 軟體版本
- Office 2007
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2021-6-21
- 最後登錄
- 2021-8-24
|
回復 16# samwang
Sub Openfile()
fileToOpen = Application _
.GetOpenFilename("Excel Files(*.csv*), *.csv*", MultiSelect:=True)
num = 0
linenumber = 0
For num1 = 1 To UBound(fileToOpen)
num = num + 1
If fileToOpen(num) <> "False" Then
Open fileToOpen(num) For Input As #1 ' Open file for input
Do While Not EOF(1) ' Loop until end of file
linenumber = linenumber + 1
Line Input #1, line
arrayOfElements = Split(line, ",")
elementnumber = 0
For Each element In arrayOfElements
elementnumber = elementnumber + 1
Cells(linenumber, elementnumber).Value = element
Next
Loop
End If
Close #1 ' Close file.
Next num1
End Sub
這是我的程式碼，開出來的csv檔都是亂碼
用了錄影巨集
發現跟TextFilePlatform有關
大神可以幫我嗎 |
|
發表於 2021-6-21 16:48
| 
