• ベストアンサー

エクセルVBAでIE操作

初心者です。例、エクセルからIEを呼び出してヤフーの全国お天気情報をsheets("sheet1").Range("A3")から順次張り付けていく構文をどなたかご教示お願いします

質問者が選んだベストアンサー

  • ベストアンサー
  • skp026
  • ベストアンサー率45% (1011/2238)
回答No.1

該当する書籍があるようです。 http://book.impress.co.jp/books/3384 もしくはサンプルコードをいじってみることも有効です。 http://www.vba-ie.net/sp/code/

nebikitorikai
質問者

お礼

ありがとうございます

nebikitorikai
質問者

補足

当方６４ビットのパソコンです。

その他の回答 (1)

  • imogasi
  • ベストアンサー率27% (4737/17068)
回答No.2

最近この質問が多い。 しかし数百文字の解説で説明できるものでない。背景となる知識（エクセルやエクセルＶＢＡとは別）もいろいろ必要だ。だから自分で徐々に勉強していくほかない。 エクセルＶＢＡとは違った分野のプログラムを組む知識がいる。 それと我々に届く情報（ＨＴＭＬ文）から、必要な情報をどのように取り出すかについて、ＷＥＢサイトごとにその情報の場所を探さなければならないし、サイトも改善されたりするので我々に届く情報は、短期間でも変わる場合がある。 ただし、最近単行本が2-3冊出たので、勉強しやすくなっているのでじっくり読むこと。「ＡＭＡＺＯＮ　本」Ｇｏｏｇｌｅ照会して、さらに「ＩＥ＊　ＶＢＡ］で照会すると、２本の書名などは判る。 ＷＥＢでの記事も増えている。Ｇｏｏｇｌｅで「ＶＢＡ　ＩＥ」で照会すれば 記事が出てくる。 http://www.vba-ie.net/ の記事を読んで、食いついていけないようなら、あきらめること。 ーー エクセルＶＢＡで扱うシートの情報とは、相当違っている情報の持ち方（構造）の物を相手にするのだから。エクセルのようにセル番地で特定される構造ではないから。 コード例のＩＥ．navigateのあたりだけ見て簡単だと思っては間違い。

nebikitorikai
質問者

お礼

有難うございます

nebikitorikai
質問者

補足

当方６４ビットのパソコンです。書籍はまだ対応していないみたいですね。

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • Excel 2010 VBAで教えてください。

    Excel 2010 VBAで教えてください。 Doubleの配列　Dim A(100) as double に ワークシート "Sheet1" セル　A1:A100　の値を一発（For loop等を利用しない）　で読み込むにはどうすればよいのでしょうか。 同じく、　Doubleの配列　A(100)を ワークシート "Sheet2" セル　B1:B100　に一発で書き出すのはどうすればよいのでしょうか。　 Variantにて　Dim A as Variant では　　A = Sheets("Sheet1").Range("A1:A100") で　読み込めました。 また　Sheets("Sheet2").Range("B1:B100")で書き込みできましたが、double等でどうすれば良いのか知りたいです。

  • Excel VBAで…。

    データーシート(1)のデータをレイアウトシート(2)に転記するのに 例えば sheets(1).range("A1").value=sheets(2).range("C5").value sheets(1).range("B1").value=sheets(2).range("C6").value sheets(1).range("C1").value=sheets(2).range("C7").value と言うように配置しているのですが もし、シート(1)セルB1の値が空白ならば シート(1)セルC1の値はシート(2)のセルC6に配置・・・ と言うように データがない場合は、転記後の配置は詰めて配置したいのです。 どうすればよろしいでしょうか？

  • VBAエクセル、項目検索からデータ抽出

    お世話になります。早速ですがsheets("データ元").Range("A2")にNo.、Range("B2")に日付、Range("C2")に曜日、Range("D2")に項目、Range("E2")に詳細、Range("F2")に金額があり A3～F3以下LastRowまでデータが入っています。 Range("D3"）以下LastLowの中から１会社名を検索するとその会社名すべてのデータが新規ブックSheet1に書き出され、そのシートのRange("G3")に合計額を出す構文をどなたかご教示ください宜しくお願いします。エクセル２００３と２０１３を各パソコンで使用しています。

  • Function 構文のなかに変数をいれたい（ＶＢＡ）

    お願いします。 エクセルＶＢＡにて 下記のようなFunction構文内に変数を設定する方法を 教えてください。 この中で　ｋ以外にも a = Sheets("sheet1").Range("E27") b = Sheets("sheet1").Range("E27") この変数を扱いたいのですが。 もしかして他にもｆｕｎｃｔｉｏｎ構文が必要でしょうか。 Function data(k As Double) Dim sum As Double Dim ct As Integer Dim keisu As Integer Dim a As Double Dim b As Double a = Sheets("sheet1").Range("E27") b = Sheets("sheet1").Range("E27") 　以下　略

  • エクセルVBAについて

    こんにちわ！ 今、エクセルでAシートの入力した項目をBのシートへデーターが入力できるようなシステムを以下のようにくみました。 そこでBシートにデーターが入力されるのですが２０行まで入力すると入力できないようにしたいのですが、なかなか上手くいきません。 A1からF20まで書式のロックを外しそれ以外のセルは保護をかけたのですがその状態でVBAを使って２０行以上入力できませんという感じのエラー表示をしたいのですが、どうすればいいでしょうか？ VBAは初心者ですが宜しくお願いします。 Private Sub CommandButton1_Click() Dim row As Integer row = WorksheetFunction.CountA(Sheets("date").Columns(1)) + 1 Sheets("date").Cells(row, 1).Value = Range("B2").Value row = WorksheetFunction.CountA(Sheets("date").Columns(2)) + 1 Sheets("date").Cells(row, 2).Value = Range("B3").Value row = WorksheetFunction.CountA(Sheets("date").Columns(3)) + 1 Sheets("date").Cells(row, 3).Value = Range("B4").Value row = WorksheetFunction.CountA(Sheets("date").Columns(4)) + 1 Sheets("date").Cells(row, 4).Value = Range("B5").Value row = WorksheetFunction.CountA(Sheets("date").Columns(5)) + 1 Sheets("date").Cells(row, 5).Value = Range("B6").Value row = WorksheetFunction.CountA(Sheets("date").Columns(6)) + 1 Sheets("date").Cells(row, 6).Value = Range("B7").Value Sheets("統制入力").Select Range("B17").Select ActiveWindow.SmallScroll Down:=-9 Range("B3:B7").Select Selection.ClearContents Range("B1").Select End Sub

  • エクセルＶＢＡ：繰り返し処理について

    エクセルＶＢＡ初心者です。どうかご指導お願いします。 シート１に入力されたデータベースがあります。 B列には氏名が入力されています。 B2の値で絞りこんで、シート２に貼り付け、 B3の値で絞りこんで、シート３に貼り付け、 B4の値で絞り込んでシート４に貼り付けてB列の値が""（空白）になるまで繰り返すコードの書き方を教えてください。 さらに、B列には、当然同じ氏名が何回も入力されているので、前に一度出た人はパスするというようにしたいのです。 下記コードは、「B2の値で絞りこんで、シート２に貼り付け」だけをしたものですが、このコードを応用して作りたいのです。ご指導お願いします。 Sub test01() 　With sheets("sheet1"）Range("A1") 　　.AutoFilter field:=2, Criteria1:=Range("B2") 　　.CurrentRegion.Copy Destination:=Sheets("Sheet2").Range("A1") 　　.AutoFilter 　End With End Sub

  • エクセル　ＶＢＡ　シートの選択　

    windows XP でエクセル２０００を使っています。 Sub aaa() Sheets("Sheet1").Select Dim a As String a = Cells(2, 4) Sheets(a).Select Range("A1").Select End Sub というマクロだと　セルに入っている値のシート名を探してくれます。 ですが Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) If Intersect(Target, Range("B11:b683")) Is Nothing Then Exit Sub Worksheets("Sheet1").Range("C2").Value = Target.Value Dim b As String b = Range("C2).value （←ここをcellsにしてもダメ） Sheets(b).Select Range("A1").Select End Sub これだとsheets(b)を選びません。Sheets(b).Selectのところが黄色くなります。 何処が間違えているのでしょうか。 全くの素人ですが、仕事で必要に迫られています。 わかりやすく回答・解説くれると助かります。

  • ＥＸＣＥＬのＶＢＡですが。

    ＥＸＣＥＬのＶＢＡですが。 Sub macro1() Dim mycnt As Integer Dim sheet_name1 As String Sheets("kekka").Select Range("A1").Select Sheets("shiji").Select mycnt = Range("B1").Value sheet_name1 = Range("c" & mycnt) Sheets("kekka").Select Sheets("kekka").name = sheet_name1 Sheets("kansuke").Select Sheets("kansuke").Copy Before:=Workbooks("2007年報告.xls").Sheets(3) End Sub （やりたいこと） B1に入っている数値でＣ１からC10に入っているあるシートの名前(たとえばkansukeとする）を取り、その名前で kekkaというシート名をkansukeという名前に変える。 名前を変えたkansukeというシートを別の2007年報告というbookにコピーを転送する。 (質問）上のコードで実はkansukeと書いてあるところは，Ｂ１の値次第で当然いろいろに 変化するため、そのシート名にとらわれない書き方をしたいのですがどう記述すればいいのか わかりません。以上お願いします。

  • エクセルVBA 双方向での書式のリンク方法

    エクセルVBAにて双方向での書式のリンクをさせたいと考えています。 具体的にはセルの背景色の双方向リンク方法について教えていただきたいです。ここで双方向での背景色のリンクとは別々のシート上のセルの背景色をどちら側の変更であっても、もう一方に変更を反映させることです。 【シート１】 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then Sheets("Sheet2").Range("$A$1").Value = Sheets("Sheet1").Range("$A$1").Value Sheets("Sheet2").Range("$A$1").Interior.ColorIndex = Sheets("Sheet1").Range("$A$1").Interior.ColorIndex End If End Sub 【シート２】 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then Sheets("Sheet1").Range("$A$1").Value = Sheets("Sheet2").Range("$A$1").Value Sheets("Sheet1").Range("$A$1").Interior.ColorIndex = Sheets("Sheet2").Range("$A$1").Interior.ColorIndex End If End Sub 上記のコードを記述しています。値のリンクはできているのですが背景色のリンクがどうしてもうまくできません。どちらかの変更と同時にもう一方の背景色も変更されるようにするにはどうすればよいでしょうか？ どんな方法でもかまいませんのでお詳しい方よろしくお願いします。

  • Excel 2007 <VBAでグラフの操作>

    Excel 2007 <VBAでグラフの操作> 現在すでにあるグラフを修正しています。 下記マクロでは「各グラフに系列が2つあり、その1つ目を削除して残る1つのデータ範囲（X軸の値)を再設定する」という内容です。 下記マクロではFor構文冒頭のSet～の行で、 「実行時エラー '1004'：　'Cells'メソッドは失敗しました:'_Global'オブジェクト」 とのエラーが出ます。 このエラーについて検索してみたのですが、これといったものが見つからなかったので、このマクロでおかしなところがあれば直接指摘していただけないでしょうか。 よろしくお願いします。 Private Sub Test_Arrange() 　　Dim MyRng As Range 　　Dim R As Integer 　　Dim n As Integer 　　Dim i As Integer 　　n = 10 　　R = Sheets("Sheet1").Range("A1").End(xlDown).Row 　　For i = 1 To n 　　　　Set MyRng = Sheets("Sheet1").Range(Cells(2, 2 * n + 3), Cells(R, 2 * n + 3)) 　　　　Charts(i).SeriesCollection(1).Delete 　　　　Charts(i).SeriesCollection(1).XValues = MyRng 　　Next i End Sub

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する