gpt4 book ai didi

excel - 将 CSV 导入 Excel - 自动 "Text to columns"和 "insert table"

转载 作者:行者123 更新时间:2023-12-02 11:46:18 24 4
gpt4 key购买 nike

我想在 Excel 2010 上打开 CSV(逗号分隔)文件,自动将文本转换为列,然后选择所有事件单元格并插入带标题的表格。

是否可以在我的功能区中添加一个按钮来为我完成这一切?

我经常使用不同大小的 CSV 文件,我发现每次手动执行此操作有点痛苦。

最佳答案

有点晚了,但我刚刚遇到了这个问题......

这用于从选择器中选择特定文件:

Sub OpenCSV()
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
fd.AllowMultiSelect = True
fd.Show
For Each fileItem In fd.SelectedItems
Workbooks.OpenText Filename:= _
fileItem _
, Origin:=65001, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=False, Other:=False, TrailingMinusNumbers:=True
Next
End Sub

这将打开所选文件夹中的所有 CSV 文件:

Sub OpenCSVFolder()
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
fd.AllowMultiSelect = True
fd.Show
For Each folderItem In fd.SelectedItems
fileItem = Dir(folderItem & "\" & "*.csv")
While fileItem <> ""
Workbooks.OpenText Filename:= _
folderItem & "\" & fileItem _
, Origin:=65001, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=False, Other:=False, TrailingMinusNumbers:=True
fileItem = Dir
Wend
Next
End Sub

请注意,这些文件设置为 Tab Delimited - 通过更新 Tab:=TrueComma:=False 参数来更改分隔符.

关于excel - 将 CSV 导入 Excel - 自动 "Text to columns"和 "insert table",我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/8701044/

24 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com