主要是用open 方法读取除txt以外的文件,读出来的数据是乱码的,还需要理解一下。
Sub readFileByChoose()
Dim fileName As String
'Dim sFileName As String
'Dim aFile As Variant
fileName = getFilePath()
If fileName <> "" Then
'Range("B3") = fileName
'aFile = Split(fileName, "\")
'sFileName = aFile(UBound(aFile))
'Call createFile(fileName, sFileName)
Call createFile(fileName)
End If
End Sub
Function getFilePath() As String
Dim name As Variant
name = Application.GetOpenFilename("All File,*.*")
If name <> False Then
getFilePath = name
End If
End Function
Function createFile(fileName As Strin