Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


49103 / 76732 ←次へ | 前へ→

【32551】Re:バッチ処理
発言  Ned  - 05/12/17(土) 3:16 -

引用なし
パスワード
   ▼とうち さん:
こんにちは。
念のためテスト環境で、少ないファイル数で試してみてくださいネ^ ^

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

1 hits

【32550】バッチ処理 とうち 05/12/17(土) 2:52 質問
【32551】Re:バッチ処理 Ned 05/12/17(土) 3:16 発言
【32555】Re:バッチ処理 とうち 05/12/17(土) 12:29 お礼

49103 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free