使用分号分隔符将多个.csv文件导入Excel [英] Import multiple .csv files to Excel with semi-colon delimiter

问题描述

全部好，


我在单个目标中拥有多个.csv文件。我想在excel文件中导入所有这些文件，只需单击一下按钮即可分隔分号。任何人都可以帮我摆脱这个问题。我迫切需要。 PLZ帮助。


问候

Anup kumar

HI ALL,

I am having multiple .csv files in a single directry. I wanted to import all these files in a excel file with semicolon delimeted by a single click of a button. Can anyone please help me to get rid of this problem. I am in urgent need. plz help.

Regards
Anup kumar

推荐答案

任何人都可以帮助plzzzzzzzzzz ...... ..........

Can anybody help plzzzzzzzzzz.............

我希望您使用VBA，在这种情况下，此代码可能对您有所帮助。只需将其添加到按钮。

I hope you''re using VBA, in that case this code might help you. just add it to a button.

展开 | 选择 | Wrap | 行号

我希望您使用的是VBA，在这种情况下，此代码可能对您有所帮助。只需将其添加到按钮。


Sub Importar（）

Dim Str1 As String

Dim i As Integer

使用Application.FileDialog（msoFileDialogFilePicker）

.AllowMultiSelect = True

.Filters.Clear

.Filters.Add" Archivos Punto y Coma（* .cvs）"，" *。cvs"

.Filters.Add" Archivos Texto（* .txt）"，" * .txt"

.Filters.Add" Todos los Archivos（*。*）"，" *。*"

。显示

如果。 SelectedItems.Count> 0然后

For i = 1 To .SelectedItems.Count

如果Worksheets.Count<我然后

Worksheets.Add After：=工作表（i - 1）

结束如果

工作表（i）。激活

Str1 =" TEXT;" &安培; .SelectedItems.Item（i）

使用ActiveSheet.QueryTables.Add（Connection：= Str1，Destination：= Range（" A1"））

.TextFileSemicolonDelimiter = True

.Refresh BackgroundQuery：= False

结束

下一页

结束如果

结束

结束子


祝你好运

I hope you''re using VBA, in that case this code might help you. just add it to a button.

Sub Importar()
Dim Str1 As String
Dim i As Integer
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = True
.Filters.Clear
.Filters.Add "Archivos Punto y Coma (*.cvs)", "*.cvs"
.Filters.Add "Archivos Texto (*.txt)", "*.txt"
.Filters.Add "Todos los Archivos (*.*)", "*.*"
.Show
If .SelectedItems.Count > 0 Then
For i = 1 To .SelectedItems.Count
If Worksheets.Count < i Then
Worksheets.Add After:=Worksheets(i - 1)
End If
Worksheets(i).Activate
Str1 = "TEXT;" & .SelectedItems.Item(i)
With ActiveSheet.QueryTables.Add(Connection:=Str1, Destination:=Range("A1"))
.TextFileSemicolonDelimiter = True
.Refresh BackgroundQuery:=False
End With
Next
End If
End With
End Sub

Good Luck

感谢你的帮助。但我想在单个工作表中导入数据。您提供的代码将数据放在多个工作表中。多数民众赞成我不想要的。那么就是plz建议的。

再次使用Thanx。

thanx dude for your help. But i want to import the data''s in a single worksheets. The code given by you is puting the data''s in multiple worksheets. Thats what i dont want. Is thereanyway then plz suggest.
Thanx a lot again.

这篇关于使用分号分隔符将多个.csv文件导入Excel的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！