Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2214 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【69353】シート名の指定について 湯路 11/6/29(水) 17:50 質問[未読]
【69359】Re:シート名の指定について SK63 11/6/30(木) 9:30 発言[未読]
【69353】シート名の指定について
質問  湯路  - 11/6/29(水) 17:50 -
引用なし
パスワード
   アドバイスをお願いします。

以下のようなVBAを利用しています。
今までは作業対象のシートが「取込」の１つでした。

それを変更して、「A」というシートで実行する場合には、シート「A取込」へデータを取込む。
シート「B」→シート「B取込」
シート「C」→シート「C取込」
といったように、実行をするシートに対して、「シート名＋取込」というシートへデータを取込たいと思っています。
WorkBookSheet部分をどのように変更すればよいかアドバイスをお願いいたします。


Sub Date()
Dim wb As Workbook
If Application.Dialogs(xlDialogOpen).Show("*.csv") = False Then
MsgBox "キャンセル"
Exit Sub
Else
Set wb = ActiveWorkbook
End If
With ThisWorkbook.Sheets("取込")
【69359】Re:シート名の指定について
発言  SK63  - 11/6/30(木) 9:30 -
引用なし
パスワード
   肝心の処がないので誰も応えれないのでは??
でも
「A」というシートで実行する場合には、シート「A取込」へデータを取込む。
が出来ているなら、A-Bに変わるだけでなら動作しますよね、
Sheets（1).nameでｼｰﾄ名は取得できるからACTIVE.SHEETS〜みたいな構文で
名前所得して、処理を分岐SELECTかIFですれば、出来そうですが、、


▼湯路 さん：
>アドバイスをお願いします。
>
>以下のようなVBAを利用しています。
>今までは作業対象のシートが「取込」の１つでした。
>
>それを変更して、「A」というシートで実行する場合には、シート「A取込」へデータを取込む。
>シート「B」→シート「B取込」
>シート「C」→シート「C取込」
>といったように、実行をするシートに対して、「シート名＋取込」というシートへデータを取込たいと思っています。
>WorkBookSheet部分をどのように変更すればよいかアドバイスをお願いいたします。
>
>
>Sub Date()
>Dim wb As Workbook
>If Application.Dialogs(xlDialogOpen).Show("*.csv") = False Then
>MsgBox "キャンセル"
>Exit Sub
>Else
>Set wb = ActiveWorkbook
>End If
>With ThisWorkbook.Sheets("取込")
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2214 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free