- 締切済み
Webクエリで取得したデーターを随時別のシートにコピーできますか？
- みんなの回答 （1）
- 専門家の回答
みんなの回答
- popesyu
- ベストアンサー率36% (1782/4883)
出来る出来ないで言えば出来ますが、当然VBAの最低限の知識が必要になります。 簡単な手順でやるなら 1.目的のWebクエリを作成し保存しておく 2.1のWebクエリを実行（コードの中身はマクロの記録で生成できます）し、結果をワークシート(1)に書き出す 3.1の結果から目的の値のみを2に特定の場所にコピー、あわせて時間も書き出す。 というだけで済みます。 どの辺が疑問なのかが分からないのでアレなんですが、VBAを学びたいという意欲があるなら最低限のスキルが無くても何とかなるレベルだと思います（VBAをかじったことがある人間なら１日で作成できるレベルです ）が、特にVBAの必要性を感じていない・学ぶ時間がないとかであれば手動でやっておけば良いのではないかと。
関連するQ&A
- エクセルで範囲内のデータを別シートにうつしたい
エクセルで特定の範囲内の数値にあてはまるデータを別のシートに新たな表として作成したいのですが、簡単な方法があれば教えてください。 例えば Sheet１ A B C 1 25 ミカン 3000 2 30 リンゴ 4500 3 5 メロン 9800 4 17 ブドウ 1800 5 50 バナナ 1000 このようなデータを次のような表にしたいのです。 A列の数値が10～30のみ行ごと抜粋する Sheet2 A B C 1 25 ミカン 3000 2 30 リンゴ 4500 3 17 ブドウ 1800 よろしくお願いいたします。
- 締切済み
- Windows 8
- Excel VBAでのwebクエリ取得データの表示
Excel VBAを使用してwebクエリでSheet1のB2セル～B3、B4、B5・・・と複数のURLからデータをループで取得し、Sheet2のA1セル～A2、A3、A4にて表示しています。 取得データの内容が3行だと仮定（あくまで仮定です）すると、通常であれば以下※1のように表示されると思います。 ※1 ━━【A】━━━━ 【1】B2セルURLの取得内容 【2】B2セルURLの取得内容 【3】B2セルURLの取得内容 【4】B3セルURLの取得内容 【5】B3セルURLの取得内容 【6】B3セルURLの取得内容 【7】B4セルURLの取得内容 【8】B4セルURLの取得内容 【9】B4セルURLの取得内容 ・ ・ ・ ・ ・ ・ ━━━━━ これを以下※2のように、取得したデータを横に表示することはできないでしょうか？ ※2 ━━【A】━━━━━━━━【B】━━━━━━━━【C】━━━━ 【1】B2セルURLの取得内容 B2セルURLの取得内容 B2セルURLの取得内容 【2】B3セルURLの取得内容 B3セルURLの取得内容 B3セルURLの取得内容 【3】B4セルURLの取得内容 B4セルURLの取得内容 B4セルURLの取得内容 【4】B5セルURLの取得内容 B5セルURLの取得内容 B5セルURLの取得内容 【5】B6セルURLの取得内容 B6セルURLの取得内容 B6セルURLの取得内容 ・ ・ ・ ・ ・ ・ ・ ・ ・ ・ ・ ・ ━━━━━ 参考までに以下VBAを使用して、webクエリをループでデータ取得しています。 ━━━━━ Sub webクエリ() Dim myQT As QueryTable Dim i As Long Dim myURL As String Cells.Delete For Each myQT In QueryTables: myQT.Delete: Next Range("A1").Select For i = 2 To Sheets("Sheet1").Cells(Rows.Count, "B").End(xlUp).Row myURL = Sheets("Sheet1").Cells(i, "B").Value With QueryTables _ .Add(Connection:="URL;" & myURL, Destination:=Selection) .BackgroundQuery = False .AdjustColumnWidth = False .WebSelectionType = xlEntirePage .WebFormatting = xlWebFormattingNone .WebTables = "2" .Refresh BackgroundQuery:=False End With Cells(ActiveCell.Row + QueryTables(1).ResultRange.Rows.Count, 1).Select Next End Sub ━━━━━ 当方VBA初心者ですので、できるだけわかりやすくご教授頂けると助かります。 よろしくお願いいたします。
- ベストアンサー
- Visual Basic
- エクセルで別シートの値を取得したいです。
エクセルで質問があります。 別シートからセル値を取得したいです。 ただ、セル番地は行番号、列番号で指定し、 行、列番号はセルに入力してある値を使いたいです。 例 Aシート(値格納シート) B1セル値=1000 -------------- Bシート(値取得シート) A列=行番号入力 B列=列番号入力 C列=Aシートの取得関数 A2セル値=1 B2セル値=2 C2セル=1000(取得値) C2セルの関数に、A2とB2の値を使って Aシートのセル値を取得したいです。 よろしくお願いします。
- ベストアンサー
- その他MS Office製品
- セルから取得したURLをwebクエリで取り込むには？
Excelのwebクエリに関する質問です。 sheet1のセルA1に書かれたURLをwebクエリでテキストデータのみを取り込みたいです。 結果はsheet2のセルA1に出します。 次にsheet1セルA2のURLをsheet3のセルA1に取り込みます。 以上の様なことを数十ページ行いたいと思います。 sheetは始めはsheet3までしかありませんので、 随時自動で追加されると助かります。 VBAの知識がなく、こちらで相談させていただくことになりました。
- 締切済み
- オフィス系ソフト
- エクセルで複数シートの同位置にあるデータを別のシートに書き込む方法
いつもお世話になります。 エクセルファイルの中に約１００シートあるのですが、新しいシートを用意して、１００シートの中にある特定の位置のデータをそこに書き連ねていくことは出来ますでしょうか。ちなみにシートの名前は数値ではなく、地名を書き入れているので法則性はありません。 具体的な形としては、シート”大阪”、”堺”、”和泉”・・・とあって、各セルのA1、B2、C3のセルのデータが欲しかったとすれば、 地名，数値1，数値2，数値3 大阪,A1,B2,C3 堺,A1,B2,C3 和泉,A1,B2,C3 ・・・ という表を作りたいのです。 どうか宜しくお願い致します。
- ベストアンサー
- Visual Basic
- WEBクエリを処理していくVBAについて
初めまして。 ExcelのVBAについての質問です。 WEBクエリを用いて、データを回収したいのですが まだVBAを勉強したてで、作りたいものがあるのに 作れず困っています。 sheet1 A列 B列 あああ http://aaaaa.co.jp/aaaa.html いいい http://aaaaa.co.jp/bbbb.html うううう http://aaaaa.co.jp/bbbb.html というものがあり このB列のURLを上から順番にWEBクエリによってデータを得て 「新しいシート」に貼り付け この新しいシートのシート名を、A列の対応する行の名前で順番に付けていきたいです。 aaaa.html → 「あああ」シート bbb.html → 「いいい」シート という感じです。 この処理を何回か続けていくVBAを教えていただきたいです。 宜しくお願い致します。
- 締切済み
- Excel（エクセル）
- ＶＢＡで別シートに複数のデーターを参照
こんばんは。マクロ初心者です。 ＶＢＡの構文を教えてください。 ■シート(1)には項目が５０ある５年分（60ヶ月）の市場統計データーがあります。５０個ある項目名はＢ列にありＤセル2008年1月からＢＫセル2012年12月まで横に60ヶ月分のデーターを入力しています。 ■シート(2)には５０の項目名のデータがあります。項目名はＢ列にあります。 ■シート(3)にはコンボボックスを作成し、コンボボックスの下に表を作成しました。 シート(3)のコンボボックスから▼ボタンで項目を選びコマンドボタンを押すと シート(3)の下記のセル範囲でシート(1)のデーターを参照させたいのです。 Ｂ８セルからＭ８セルまで（2008年度12か月分のデータ） Ｂ11セルからＭ11セルまで（2009年度12か月分のデータ） Ｂ14セルからＭ14セルまで（2010年度12か月分のデータ） Ｂ17セルからＭ17セルまで（2011年度12か月分のデータ） Ｂ20セルからＭ20セルまで（2012年度12か月分のデータ） コンボボックスは設定できたのですが、構文がうまくできないため参照できていません。 エクセルに詳しい方、どうぞご教授ください。よろしくお願い致します。
- ベストアンサー
- Visual Basic
- WEBクエリを使用して企業情報を取得したい
VBA初心者です。よろしくお願いいたします。 Excel2007のWEBクエリを使用してyahooファイナンスより複数銘柄の企業情報を取得したい。 ・Sheets("meigara")のセルA列(複数銘柄)から企業コードを取得。 ・WEBクエリを実行させて、取得データを銘柄毎にシートに書き出し 上記を複数銘柄で繰り返し処理したい。 【詳細】 Sheets("meigara").SelectのA列に複数銘柄コードを記載 繰り返し企業コードを取得しSheets("data1")、Sheets("data2")、Sheets("data3")…と WEBクエリの書き出しを銘柄コード毎にシートを作成して繰り返し処理したい 宜しくお願いいたします。 ----------------------------------------------------------------------- Sub iyahoo情報() ' ' yahooファイナンス銘柄情報取得 ' Sheets("data").Select With ActiveSheet.QueryTables.Add(Connection:= _ "URL;http://stocks.finance.yahoo.co.jp/stocks/profile/?code=2162.T", _ Destination:=Range("$A$2")) .Refresh BackgroundQuery:=False End With End Sub ※上記の2162に代入したい
- ベストアンサー
- Visual Basic
- VBA sheet2データーから平均取得 sheet1へコピー
sheet2指定セルデーターから平均 sheet1指定セルに取得したいのですがうまくいきません。 例 sheet1 sheet2 列A 列B 列C 列A 列B 列C １ ２ 指定 １ ２ ３ １ ２ ３ １ ２ ３ １ ２ ３ １ ２ ３ sheet2・列C１～３の平均を、sheet1・指定セルに取得したいのですが Sub test() Dim r As Long, u As Long, ws1 As Object, ws2 As Object, y As Long r = 10 u = 1 Set ws1 = Sheets(1) Set ws2 = Sheets(2) y = ws1.Range("A" & Rows.Count).End(xlUp).Row Dim myAve As Long myAve = Application.WorksheetFunction.Average(ws2.Range(Cells(3, u), Cells(7, u))) ws1.Cells(r, 7).Value = "myAve" r = r + 1 u = u + 1 End Sub 変数y r u を使いfor～nextでデーターを一括取得するつもりなのですが この段階でうまくいきません。
- ベストアンサー
- Visual Basic
- webクエリで取得した表の処理について
エクセルでwebクエリで取得した表を画像のように処理をマクロでしたいのですが どうすればいいですか 簡単に説明すると 表を取得 ↓ F12にあるメイショウマンテンをシニスターミニスターの横に移動させる ↓ B3の2019年1月19日（土） | 1回京都6日 | 15:35発走のうち2019年1月19日をシニスターミニスターの横に移動 ↓ B4のすばるステークスを2019年1月19日の横に移動 ↓ １２ １３行を削除 ← これはできています ↓ 別のシートに移動 これで終わりです わかりにくければすいませんよろしくおねがいします
- 締切済み
- Excel（エクセル）
