Excel VBA質問箱 IV

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

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


30159 / 76738 ←次へ | 前へ→

【51848】Re:ファイルの合成
回答  Hirofumi  - 07/10/7(日) 13:13 -

引用なし
パスワード
   ごめん、ちょっと勘違い
以下を修正して下さい

'  Dim strBuff As String
  Dim bytBuff() As Byte '★変更

  'マージ処理
  For i = 0 To 1
    '連結するファイルOpen
    dfi = FreeFile
    Open vntMerge(i) For Binary As dfi
      'ファイルサイズを取得
      lngSize = LOF(dfi)
      ReDim bytBuff(lngSize - 1) '★追加
      'ファイルを変数に読み込み
'      strBuff = Input(lngSize, dfi) '★削除
      Get #dfi, , bytBuff '★追加
      '変数の値を出力
      Put #dfo, , bytBuff '★変更
    Close dfi
  Next i
0 hits

【51841】ファイルの合成 ロン 07/10/7(日) 10:47 質問
【51842】Re:ファイルの合成 Hirofumi 07/10/7(日) 12:03 回答
【51848】Re:ファイルの合成 Hirofumi 07/10/7(日) 13:13 回答
【51849】Re:ファイルの合成 ロン 07/10/7(日) 13:38 お礼
【51843】Re:ファイルの合成 りん 07/10/7(日) 12:27 回答
【51850】Re:ファイルの合成 ロン 07/10/7(日) 13:49 発言
【51851】Re:ファイルの合成 りん 07/10/7(日) 13:52 発言
【51852】Re:ファイルの合成 ロン 07/10/7(日) 13:59 発言
【51890】Re:ファイルの合成 ロン 07/10/9(火) 19:46 お礼
【51894】Re:ファイルの合成 りん 07/10/9(火) 20:48 発言
【51862】コピーの進捗状況 ロン 07/10/8(月) 17:15 質問

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