エクセルに数字の羅列があるのですが、直接webに手入力していくにはとても大変で困っております。
こちら(gooですが・・・)http://oshiete.goo.ne.jp/qa/5739589.htmlにぴったりのことが書いてあるのですが実際に使用してみると「ActiveXコンポーネントはオブジェクトを作成できません」とか怒られます。解決方法を教えていただければ幸いです。
追加ですがwebフォームがエクセルのようにセル状になっていて、指定の場所に転記する場合はどうしたらよろしいのでしょうか?
No.2
- 回答日時:
VBAは駄目でしょうか。
≪参考≫
三流君VBAでIE操作 InternetExplorer.Applicationを操作する
http://www.ken3.org/cgi-bin/group/vba_ie.asp
VBA(エクセル)で地図サイト(http://www.its-mo.com/index.html)にアクセスし...
http://detail.chiebukuro.yahoo.co.jp/qa/question …
No.3ベストアンサー
- 回答日時:
>こちらにぴったりのことが書いてあるのですが
お示しの URL の回答者です。
>実際に使用してみると「ActiveXコンポーネントは
>オブジェクトを作成できません」とか怒られます。
それは、Sleipnir を インストール しておられないからですね。
「ぴったりのことが書いてある」ということは、「クロネコヤマトの荷物お問い合わせシステム」でも使っていらっしゃるのでしょうか?
私は、もう何年も前から、同サイト の「お問い合わせ伝票番号」を エクセル の ワークシート から自動で入力するという VBA を書いて使っております。
実際に、「答えてねっと」という QAサイト に私が投稿した VBA の コード を書き換えて利用している方もいらっしゃいます(http://www.tokyocafe.net/slog/?eid=48)。
同じ方が、内容を更新していらっしゃいますので、お使いの ブラウザ が Internet Explorer の場合は、こちら(http://www.tokyocafe.net/slog/?eid=226)をご覧ください。
なお、念のため、基本形の最も簡単な コード をお示しいたしますので、スキル に応じてお書き直しください。
ただし、Internet Explorer の バージョン は 7 以上でいけると存じます。
Option Explicit
Sub tneko_for_IE()
Dim LastRow As Long 'A列最終行番号
Dim strURL As String '「クロネコヤマトの荷物お問い合わせシステム」のURL
Dim objShell As Object 'タブカウント用の Shellオブジェクト
Dim SWC As Long '最後のタブのインデックス
Dim objIE As Object 'IEオブジェクト
Dim Track_No As Integer '問い合わせ伝票番号の行番号
LastRow = Range("A" & Rows.Count).End(xlUp).Row
strURL = "http://toi.kuronekoyamato.co.jp/cgi-bin/tneko?in …
'予め、Shellオブジェクト の ウィンドウ の数を調べておく。
Set objShell = CreateObject("Shell.Application")
SWC = objShell.Windows.Count
'Internet Explorer の起動
'「クロネコヤマトの荷物お問い合わせシステム」の読み込み
Set objIE = CreateObject("InternetExplorer.Application")
With objIE
.Navigate2 strURL
While .Busy Or .ReadyState <> 4: DoEvents: Wend
End With
'「お問い合わせ伝票番号」の照会
Do
With objIE
Do
Track_No = Track_No + 1
.Document.all("number" & Format(Right(Track_No - 1, 1) + 1, "00")).Value = Range("A" & Track_No).Value
Loop Until Right(Track_No, 1) = 0
.Document.all("sch").Click
While .Busy Or .ReadyState <> 4: DoEvents: Wend
If Track_No > LastRow Then Exit Do
'次の10件問い合わせのために、新しいタブをアクティブにせずに開く(&H1000)
.Navigate2 strURL, &H1000
Application.Wait (Now + TimeValue("00:00:03"))
End With
'開いたタブウィンドウを objIE で参照できるようにセット
Set objIE = objShell.Windows(CLng(SWC + Int(Track_No / 10)))
Loop
'オブジェクトの解放など
objIE.Visible = True
Set objShell = Nothing
Set objIE = Nothing
End Sub
本人降臨とは思いませんでした。
実はUWSCを使って無理やり自動化したらうまくいきました。
今後の参考にさせていただきます。
ありがとうございます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(プログラミング・Web制作) 入力フォームへ、データを自動的に入力するプログラム。どうやって作る? 4 2023/01/16 10:24
- Access(アクセス) Accessのクエリの結果を、既存のエクセルに追加したい 2 2022/07/31 22:44
- Excel(エクセル) 【マクロ】webアドレスにて指定されたCSVファイル【excelソフト表示】を印刷する件 1 2023/02/15 01:52
- Excel(エクセル) ユーザー定義について質問です。 2 2023/06/28 13:21
- Excel(エクセル) エクセルのVBAの標準モジュールの名前が文字化けしてしまうのですが。。 2 2022/11/28 16:34
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Excel(エクセル) エクセルで沢山のレコードの最後に追記するには? 7 2023/04/10 13:27
- Excel(エクセル) 【VBA】指定フォルダに格納中のテキストファイルをエクセルで処理し結果のエクセルを新規フォルダに保存 1 2022/03/25 14:19
- Visual Basic(VBA) マクロで最終行を取得したい 4 2023/05/28 12:14
- HTML・CSS WEBサイトの構築。表示データとWEBデザインを分離する考え方を専門用語・業界用語では何と言うか? 8 2022/09/27 09:16
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
セルをフォームに一発入力
Excel(エクセル)
-
エクセルのデータを自動的にwebブラウザ上のフォームに入力
その他(プログラミング・Web制作)
-
VBAでWEB上の入力項目に値をいれたいのですがフォームのタイプがhiddenの場合の入れ方がわかりません。
Visual Basic(VBA)
-
-
4
HTMLフォームに自動入力
その他(プログラミング・Web制作)
-
5
Enterキーでマクロを起動さす。
その他(ソフトウェア)
-
6
VBAでループ内で使う変数名を可変にできないか。
Visual Basic(VBA)
-
7
エクセルでセルの内容を表示するバーが表示されない
Excel(エクセル)
-
8
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
9
VBAで先月、先々月を求める方法
Visual Basic(VBA)
-
10
Excel Webクエリ
Excel(エクセル)
-
11
VBAでの SendKeysの変数指定方法
Excel(エクセル)
-
12
計算式 何%減少を教えてください!
数学
-
13
VBAでファイルを開くときにファイル名でワイルドカードを使用したいです
その他(プログラミング・Web制作)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
アクセスVBAのMe!と[ ]
-
VBA エンターキーでイベントに...
-
【エクセルのマクロ】クリップ...
-
エクセルVBAでセル番地を指定し...
-
PowerpointVBAで指定のShapeオ...
-
Excelでの図形の描画
-
Excel VBAでマウスの左クリック...
-
アクセスで説明の欄の隠しオブ...
-
現在アクティブになっているオ...
-
VBでExcelの表形式の様なデザイ...
-
Imageコントロールにグラフを表...
-
日本語の文字化けを直す方法
-
「ご処理進めて頂きますようお...
-
エクセルで、日付を入力すると...
-
Excelシート上のマクロを登録し...
-
EXCEL VBA マクロ 実行する度に...
-
switch の範囲指定
-
【Excel】特定の文字を含むセル...
-
CloseとDisposeの違い
-
VBAでループ内で使う変数名を可...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
アクセスVBAのMe!と[ ]
-
VBA エンターキーでイベントに...
-
Excel VBAでマウスの左クリック...
-
文字列で小数点以下の0を削除し...
-
【エクセルのマクロ】クリップ...
-
エクセルVBAでセル番地を指定し...
-
Excel2007 でのチェックボック...
-
Accessのフォーム上にエクセル...
-
日本語の文字化けを直す方法
-
エクセルのデータをwebフォーム...
-
現在アクティブになっているオ...
-
PowerpointVBAで指定のShapeオ...
-
コードでオブジェクトを最前面に
-
【エクセル】複数のTextBoxに共...
-
Imageコントロールにグラフを表...
-
ユーザーフォームのインポート...
-
Access からオブジェクトとして...
-
構造体の静的な初期化
-
Excel VBA でPictureBoxオブジ...
-
「SHDocVw」の意味
おすすめ情報