[英]Vba Import CSV files to Excel
我正在尝试使用 VBA 代码将 Csv 文件导入到 excel,我希望它可以与所有 Csv 文件一起使用,但它没有。 这是我的代码:
Sub Input_CSV()
Dim Wb As String
Dim Arr
Set Wb = GetObject(Application.GetOpenFilename("csv file,*.csv", , "please choose a csv file", , False))
Dim blnImportData As Boolean
blnImportData = ImportCSV(Wb, "Sheet1", "A1")
If blnImportData Then MsgBox "Import CSV process complete", vbInformation, ThisWorkbook.Name _
Else MsgBox "Import CSV process failed", vbCritical, ThisWorkbook.Name
End Sub
这是功能代码
Function ImportCSV(ByVal Filename As String, _
ByVal Worksheet As String, _
ByVal StartCell As String) As Boolean
On Error GoTo Catch
Dim strConnectionName As String
strConnectionName = "TEXT;" + Filename
With Worksheets(Worksheet).QueryTables.Add(Connection:=strConnectionName, _
Destination:=Worksheets(Worksheet).Range(StartCell))
.Name = Filename
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlOverwriteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True 'False
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 437
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = True 'False
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = False
.Refresh BackgroundQuery:=False
End With
ImportCSV = True
Exit Function
Catch:
ImportCSV = False
End Function
我怎样才能纠正它? 有人可以帮我吗?
您可以简化并使用以下内容打开您的文件:
Public Sub OpenCsvFile(byVal filepath)
Workbooks.OpenText filename:=filepath, dataType:=xlDelimited, semicolon:=True
End Sub
有关此方法的更多详细信息 (MSDN 链接)
你在这里有一个很好的解释:
https://sitestory.dk/excel_vba/csv-file-import.htm
使用我在案例中应用的代码:
Sub OpenCSV()
Dim sPath As String
sPath = ThisWorkbook.Path & "\Site_survey_form2.csv"
Workbooks.OpenText Filename:= _
sPath, DataType:=xlDelimited, Semicolon:=True, Local:=True
End Sub
因此,.csv 文件将在单独的工作簿中打开。
如果您想立即将 .csv 内容导入您的工作簿,那么我建议您参考此处的线程:
有没有办法将数据从 .csv 导入到活动的 Excel 工作表中?
我从那里准备了以下代码:
Sub CSV_Import()
Dim ws As Worksheet, strFile As String, sPath As String
Set ws = ActiveWorkbook.Sheets("Sheet1") 'set to current worksheet name
sPath = ThisWorkbook.Path & "\Site_survey_form2.csv" '"\ your file name
With ws.QueryTables.Add(Connection:="TEXT;" & sPath,
Destination:=ws.Range("A1"))
.TextFileParseType = xlDelimited
.TextFileCommaDelimiter = True
.Refresh
以结束子结束
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.