返回列表下一主題上一主題發帖

開啟多個csv顯示亂碼

wang077

中學生 Rank: 2

帖子: 104
主題: 10
精華: 0
積分: 114
點名: 0
作業系統: Windows 10
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2021-6-21
最後登錄: 2021-8-24

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2021-6-24 15:24 | 只看該作者

開啟多個csv顯示亂碼

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
這是我的程式碼，開出來的都是亂碼
用了錄影巨集
發現跟TextFilePlatform有關
有大神可以幫我嗎