Я попытался использовать немного кода, предоставленного из этого предыдущего Ответа супер пользователя:
Sub OpenCsvAsText(ByVal strFilepath As String)
Dim intFileNo As Integer
Dim iCol As Long
Dim nCol As Long
Dim strLine As String
Dim varColumnFormat As Variant
Dim varTemp As Variant
'// Read first line of file to figure out how many columns there are
intFileNo = FreeFile()
Open strFilepath For Input As #intFileNo
Line Input #intFileNo, strLine
Close #intFileNo
varTemp = Split(strLine, ",")
nCol = UBound(varTemp) + 1
'// Prepare description of column format
ReDim varColumnFormat(0 To nCol - 1)
For iCol = 1 To nCol
varColumnFormat(iCol - 1) = Array(iCol, xlTextFormat)
' What's this? See VBA help for OpenText method (FieldInfo argument).
Next iCol
'// Open the file using the specified column formats
Workbooks.OpenText _
Filename:=strFilepath, _
DataType:=xlDelimited, _
ConsecutiveDelimiter:=False, Comma:=True, _
FieldInfo:=varColumnFormat
End Sub
Я вставил "Sub OpenCsvAsText ... Конец подпрограммы »в модуль в моей книге Excel 2010. Однако я не могу понять, как его запустить. Он не отображается в списке доступных макросов, хотя другие макросы появляются (я установил безопасность, чтобы включить все макросы.) На странице выше использование указано как:
OpenCsvAsText "C:\MyDir\MyFile.txt"
Я должен запустить это из командной строки или из командной строки в Excel? Если так, то где?