Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10444 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【21831】バイナリーファイルを読み込む方法 さる 05/2/1(火) 14:19 質問[未読]
【21833】Re:バイナリーファイルを読み込む方法 Jaka 05/2/1(火) 15:01 発言[未読]
【21834】Re:バイナリーファイルを読み込む方法 さる 05/2/1(火) 15:16 お礼[未読]
【21835】Re:バイナリーファイルを読み込む方法 Jaka 05/2/1(火) 15:31 発言[未読]
【21831】バイナリーファイルを読み込む方法
質問  さる E-MAIL  - 05/2/1(火) 14:19 -
引用なし
パスワード
   はじめまして
ＶＢＡでひとつお聞きしたいことがあります。
バイナリーファイルをＶＢＡマクロで読み込むための方法を教えていただきたいのですが、どうすればいいのでしょうか？
教えてください。
【21833】Re:バイナリーファイルを読み込む方法
発言  Jaka  - 05/2/1(火) 15:01 -
引用なし
パスワード
   こんにちは、

Line Input でも読み込めるし、ファイルメニューからファイルを開くでも読み込めましたけど.....。（読み込むデータ形式はスペース）
どちらにしても読み組む時は、頭にゼロがつくから全フィールド文字列としてください。
普通に開いてそれをコピペでも良いだろうし...。

こんな感じに。
↓さっき試してたファイルメニューから開く方。

Sub Macro1()
　　Workbooks.OpenText FileName:= _
　　　　"C:\Documents and Settings\GTV\デスクトップ\arare.DMP", StartRow:=1, DataType _
　　　　:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(7, 1), Array(9, 1), Array(13, 1 _
　　　　), Array(16, 1), Array(19, 1), Array(22, 1), Array(25, 1), Array(28, 1), Array(31, 1), Array _
　　　　(34, 1), Array(37, 1), Array(40, 1), Array(43, 1), Array(46, 1), Array(49, 1), Array(52, 1), _
　　　　Array(55, 1), Array(59, 1))
End Sub
【21834】Re:バイナリーファイルを読み込む方法
お礼  さる E-MAIL  - 05/2/1(火) 15:16 -
引用なし
パスワード
   Jaka さん、ほんとにありがとうございました。
【21835】Re:バイナリーファイルを読み込む方法
発言  Jaka  - 05/2/1(火) 15:31 -
引用なし
パスワード
   解決後に掲載したマクロ記録に誤りが...。
文字列だからArray(0, 1)→Array(0, 2),でないとね、
違う方を貼り付けてました。
すみません。

Sub Macro2()
　　Workbooks.OpenText FileName:= _
　　　　"C:\Documents and Settings\GTV\デスクトップ\テキスト\arare.DMP", StartRow:=1, _
　　　　DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 2), Array(9, 2), Array(13, 2), _
　　　　Array(16, 2), Array(19, 2), Array(22, 2), Array(25, 2), Array(28, 2), Array(31, 2), Array( _
　　　　34, 2), Array(37, 2), Array(40, 2), Array(43, 2), Array(46, 2), Array(49, 2), Array(52, 2), _
　　　　Array(55, 2), Array(59, 2))
End Sub
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10444 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free