Excel VBA質問箱 IV

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

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


43395 / 76732 ←次へ | 前へ→

【38386】Re:テキストファイルの高速読込み
回答  Kein  - 06/6/1(木) 14:41 -

引用なし
パスワード
   Sub Mg_Text()
  Dim MyF As Variant, MyV As Variant
  Dim Ret As Long
  Dim FSO As Object
  Dim CmdSt As String, AllSt As String
  Const Ph As String = _
  "C:\Documents and Settings\User\My Documents"
 
  ChDir Ph
  With Application
   MyF = .GetOpenFilename("テキストファイル(*.txt),*.txt", _
   MultiSelect:=True)
   If VarType(MyF) = 11 Then Exit Sub
   .ScreenUpdating = False
  End With
  If Dir(Ph & "\Marge.txt") <> "" Then Kill Ph & "\Marge.txt"
  CmdSt = "CMD.EXE /C COPY "
  For Each MyV In MyF
   CmdSt = CmdSt & Dir(MyV) & "+"
  Next
  CmdSt = Left$(CmdSt, Len(CmdSt) - 1) & " Marge.txt"
  Ret = Shell(CmdSt, 2)
  With Application
   .Wait Time + TimeValue("00:00:01")
   .ScreenUpdating = True
   ChDir .DefaultFilePath
  End With
  If Ret = 0 Then
   MsgBox "COPYコマンドは失敗しました", 48: Exit Sub
  End If
  Set FSO = CreateObject("Scripting.FileSystemObject")
  With FSO.OpenTextFile(Ph & "\Marge.txt", 1)
   AllSt = .ReadAll
   .Close
  End With
  Set FSO = Nothing

  *ここに AllSt に対して InStr関数 などで特定の文字を検索し、
  それを基に何かの処理をするコードを書きます。

End Sub

2 hits

【38243】テキストファイルの高速読込み aya 06/5/30(火) 15:29 質問
【38244】Re:テキストファイルの高速読込み 06/5/30(火) 15:44 回答
【38245】Re:テキストファイルの高速読込み aya 06/5/30(火) 15:55 発言
【38246】Re:テキストファイルの高速読込み Jaka 06/5/30(火) 16:00 発言
【38247】Re:テキストファイルの高速読込み Jaka 06/5/30(火) 16:07 発言
【38375】Re:テキストファイルの高速読込み aya 06/6/1(木) 9:59 質問
【38249】Re:テキストファイルの高速読込み Kein 06/5/30(火) 16:13 発言
【38376】Re:テキストファイルの高速読込み aya 06/6/1(木) 10:01 発言
【38386】Re:テキストファイルの高速読込み Kein 06/6/1(木) 14:41 回答
【38388】Re:テキストファイルの高速読込み Kein 06/6/1(木) 14:43 発言
【38254】Re:テキストファイルの高速読込み neptune 06/5/30(火) 17:21 回答
【38268】Re:テキストファイルの高速読込み ichinose 06/5/30(火) 19:56 発言
【38287】Re:テキストファイルの高速読込み neptune 06/5/30(火) 23:10 発言
【38288】Re:テキストファイルの高速読込み neptune 06/5/30(火) 23:20 発言
【38377】Re:テキストファイルの高速読込み aya 06/6/1(木) 10:16 質問
【38402】Re:テキストファイルの高速読込み ichinose 06/6/1(木) 23:09 発言
【38378】Re:テキストファイルの高速読込み aya 06/6/1(木) 10:23 質問
【38387】Re:テキストファイルの高速読込み neptune 06/6/1(木) 14:42 回答
【38389】Re:テキストファイルの高速読込み aya 06/6/1(木) 15:50 発言
【38391】Re:テキストファイルの高速読込み neptune 06/6/1(木) 17:54 回答
【38392】Re:テキストファイルの高速読込み neptune 06/6/1(木) 18:52 発言

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