| |
▼とうち さん：
こんにちは。
念のためテスト環境で、少ないファイル数で試してみてくださいネ^ ^
Sub test2()
' test Macro
'「=」を区切り文字としてテキストファイルを開き、
'ファイル名を変更して別ブックに保存
Dim MyF As String
Dim i As Long
Const MyFol As String = "D:\Documents\"
Application.ScreenUpdating = False
MyF = Dir(MyFol & "*.txt")
Do Until MyF = ""
i = i + 1
Workbooks.OpenText Filename:=MyFol & MyF _
, DataType:=xlDelimited _
, TextQualifier:=xlNone _
, Other:=True _
, OtherChar:="="
With Workbooks(MyF)
.SaveAs MyFol & Replace(MyF, ".txt", ".xls")
.Close False
End With
MyF = Dir()
Loop
Application.ScreenUpdating = True
MsgBox i & " 個のファイルを処理しました。"
End Sub
|
|
Ned
- 05/12/17(土) 3:16 -
