Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7670 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【37615】strURLをオープンした後に取り込むには タクヤ 06/5/13(土) 0:31 質問[未読]
【37616】Re:strURLをオープンした後に取り込むには ハチ 06/5/13(土) 0:41 発言[未読]
【37617】Re:strURLをオープンした後に取り込むには タクヤ 06/5/13(土) 1:12 質問[未読]
【37618】Re:strURLをオープンした後に取り込むには inoue 06/5/13(土) 1:24 発言[未読]
【37621】Re:strURLをオープンした後に取り込むには ハチ 06/5/13(土) 1:33 発言[未読]
【37622】Re:strURLをオープンした後に取り込むには ハチ 06/5/13(土) 1:42 回答[未読]
【37623】Re:strURLをオープンした後に取り込むには タクヤ 06/5/13(土) 1:54 お礼[未読]
【37615】strURLをオープンした後に取り込むには
質問  タクヤ  - 06/5/13(土) 0:31 -
引用なし
パスワード
   すいません
WEB上のエクセルを取り込みたいのですが上手くいきません。
下記↓の方法ならとりあえずは新しいファイルをオープンできるのですが


strURL = "http://www.stat.go.jp/data/getujidb/zuhyou/c01-1.xls"
Workbooks.Open strURL

そのまま↑上のエクセルファイルをアクティブにして取り込みたいのですが
上手くいきません・・

　　　 Workbooks("http://www.stat.go.jp/data/getujidb/zuhyou/c01-1.xls").Sheets("a01").Select Range("A1:R21").Copy

の↑上のように直接コピーしてもインデックスが有効にありません。
と私のつかっているエクセル2000とエクセル2003の相性？のせいか
上手くコピーもできません。
何か良い方法があれば教えてください。宜しくお願いします。」
【37616】Re:strURLをオープンした後に取り込むには
発言  ハチ  - 06/5/13(土) 0:41 -
引用なし
パスワード
   ▼タクヤ さん：
>すいません
>WEB上のエクセルを取り込みたいのですが上手くいきません。
>下記↓の方法ならとりあえずは新しいファイルをオープンできるのですが
>
>
>strURL = "http://www.stat.go.jp/data/getujidb/zuhyou/c01-1.xls"
>Workbooks.Open strURL
>
>そのまま↑上のエクセルファイルをアクティブにして取り込みたいのですが
>上手くいきません・・
>
>　　　 Workbooks("http://www.stat.go.jp/data/getujidb/zuhyou/c01-1.xls").Sheets("a01").Select Range("A1:R21").Copy
>
>の↑上のように直接コピーしてもインデックスが有効にありません。
>と私のつかっているエクセル2000とエクセル2003の相性？のせいか
>上手くコピーもできません。
>何か良い方法があれば教えてください。宜しくお願いします。」

strURL = "http://www.stat.go.jp/data/getujidb/zuhyou/c01-1.xls"
Workbooks.Open strURL
で開けるのなら開いたあとは

Workbooks("c01-1.xls").sheet("a01")・・・
だと思います。
【37617】Re:strURLをオープンした後に取り込むには
質問  タクヤ  - 06/5/13(土) 1:12 -
引用なし
パスワード
   ▼ハチ さん：
ありがとうございます。
そのように行ったところ今度は

実行エラー438
オブジェクトはこのプロパティまたはソメッドをサポートしていません。

がでました。
やはりエクセルの2000と2003だから取り込めないのでしょうか？


>
>strURL = "http://www.stat.go.jp/data/getujidb/zuhyou/c01-1.xls"
>Workbooks.Open strURL
>で開けるのなら開いたあとは
>
>Workbooks("c01-1.xls").sheet("a01")・・・
>だと思います。
【37618】Re:strURLをオープンした後に取り込むには
発言  inoue E-MAILWEB  - 06/5/13(土) 1:24 -
引用なし
パスワード
   >Workbooks("c01-1.xls").sheet("a01")・・・
>だと思います。
Workbooks("c01-1.xls").Sheets("a01")・・・
では？　SheetではなくSheets。


strURL = "http://www.stat.go.jp/data/getujidb/zuhyou/c01-1.xls"
Set objWBK = Workbooks.Open(strURL)
objWBK.Sheets("a01")・・・
の方が良いような。
【37621】Re:strURLをオープンした後に取り込むには
発言  ハチ  - 06/5/13(土) 1:33 -
引用なし
パスワード
   ▼inoue さん：
>>Workbooks("c01-1.xls").sheet("a01")・・・
>>だと思います。
>Workbooks("c01-1.xls").Sheets("a01")・・・
>では？　SheetではなくSheets。

ですね。フォローありがとうございます。
【37622】Re:strURLをオープンした後に取り込むには
回答  ハチ  - 06/5/13(土) 1:42 -
引用なし
パスワード
   ▼タクヤ さん：
>▼ハチ さん：
>ありがとうございます。
>そのように行ったところ今度は
>
>実行エラー438
>オブジェクトはこのプロパティまたはソメッドをサポートしていません。
>
>がでました。
>やはりエクセルの2000と2003だから取り込めないのでしょうか？
>

strURL = "http://www.stat.go.jp/data/getujidb/zuhyou/c01-1.xls"
Workbooks.Open strURL
Workbooks("c01-1.xls").Sheets(1).Range("A1:R21").Copy _
ThisWorkbook.Sheets(1).Range("A1")

これでいけました。
ダウンロードしたbookにはSheets("a01")ってありませんでしたが。
【37623】Re:strURLをオープンした後に取り込むには
お礼  タクヤ  - 06/5/13(土) 1:54 -
引用なし
パスワード
   皆さんありがとうございました＾＾
丁寧で迅速なご回答感謝いたします。
全てテストして上手くいきました。
本当にありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7670 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free