Tag: 符分隔文本

用逗号将文本文件导入到Excel中

我有大量需要导入到Excel中的文件。 我发现，并部分修改了这个代码（我不记得在哪里，所以我不能信用），这工作90＆％+的时间。 Sub Extractions() Application.ScreenUpdating = False Application.DisplayAlerts = False Application.DisplayStatusBar = False Dim FilesToOpen Dim x As Integer On Error GoTo ErrHandler FilesToOpen = Application.GetOpenFilename _ (fileFilter:="Microsoft Excel Files (*.*?), *.*?", MultiSelect:=True, Title:="Files to Import") If TypeName(FilesToOpen) = "Boolean" Then MsgBox "No Files were selected" GoTo ExitHandler End If x = 1 While x […]