Excel VBA質問箱 IV

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

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


21301 / 76732 ←次へ | 前へ→

【60832】Re:全体の流れを確認しましょう
発言  kanabun  - 09/3/17(火) 15:00 -

引用なし
パスワード
   失礼しました

>    With Workbooks.Open(FileNames(a), Local:=True).Sheets(1)
>      .Cells(c, 1).Resize(b, 3).Copy ActSheet.Cells(3, e)
>      .Parent.Close False
>    End With

だから、↓の確認メッセージは

  c = Sh2.Cells(5, 21).Value ' 読み込む最初の行
  b = Sh2.Cells(6, 8).Value 'CSVファイルから読み込む行数
  If MsgBox("A,B,C列を " & c & "行目から " & & b & "行読み込みます", _
    vbOKCancel) = vbCancel Then Exit Sub

でないといけなかったですね?

1 hits

【60781】[無題] 新参者 09/3/14(土) 3:47 質問
【60782】Re:[無題] 横入り 09/3/14(土) 7:35 発言
【60807】Re:[無題] 新参者2 09/3/16(月) 14:42 発言
【60808】Re:[無題] kanabun 09/3/16(月) 16:36 発言
【60809】Re:[無題] 新参者3 09/3/16(月) 17:34 発言
【60811】Re:[無題] kanabun 09/3/16(月) 17:49 発言
【60813】Re:[無題] 新参者4 09/3/16(月) 18:04 発言
【60821】Re:[無題] 新参者5 09/3/17(火) 0:48 質問
【60825】Re:[無題] kanabun 09/3/17(火) 9:43 発言
【60829】Re:[無題] 新参者4 09/3/17(火) 13:47 お礼
【60830】Re:[無題] 新参者6 09/3/17(火) 14:08 発言
【60831】Re:全体の流れを確認しましょう kanabun 09/3/17(火) 14:24 発言
【60832】Re:全体の流れを確認しましょう kanabun 09/3/17(火) 15:00 発言
【60843】Re:全体の流れを確認しましょう 新参 09/3/17(火) 17:48 回答
【60844】Re:全体の流れを確認しましょう kanabun 09/3/17(火) 18:17 発言
【60810】Re:[無題] 新参者3 09/3/16(月) 17:39 発言

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