エクセル2003使用です。
エクセルのセル範囲("A1:J30")の値をそのまま
IEのテキストエリア(textarea)に貼り付けたいのですが、
うまくできません。
貼り付けたいテキストエリアは下記のサイトです。
http://www.tagindex.com/tool/excel_simple.html
下記のコードは、変数に代入して張り付ける方法ですが、
この方法の他に、
・rangeプロパティーでコピー&ペースト
・rangeプロパティーでコピー&Sendkeys "^v"
(Webのテキストエリアをフォカース済み)
の方法で試しても上手くいきませんでした。
どの方法でも結構なのですが、
できましたら勉強のために、
(可能ならば)セル範囲の値を文字型変数に代入できる方法で
教えてもらえると幸いです。
---------
Option Explicit
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Declare Function GetTickCount Lib "kernel32" () As Long
Sub sakusei_tbl_ikkatu()
'A1:J30に値を入力
Dim i As Long
Dim j As Long
Dim k As Long
Dim lngNum As Long
Dim varCell As Variant
lngNum = 1
Sheets("sheet1").Activate
varCell = Sheets("sheet1").Range("A1:J30")
For i = 1 To 30
For j = 1 To 10
varCell(i, j) = lngNum
lngNum = lngNum + 1
Next
Next
Range("A1:J30") = varCell
'---------IE起動
Dim wpfreeURL As String
Dim ie As Object
wpfreeURL = "http://www.tagindex.com/tool/excel_simple.html"
Set ie = CreateObject("InternetExplorer.application")
ie.Visible = True
ie.Navigate2 wpfreeURL
'Call waitNavi(ie) ←質問ではコメントアウトさせてもらいます
'---------Web画面に貼り付け
Dim doc_MyTable As Object
Set doc_MyTable = ie.document.getElementsByTagName("textarea")
For Each doc_MyTable In ie.document.all.tags("textarea")
If Trim(doc_MyTable.Name) = "data" Then
doc_MyTable.Value = varCell
Exit For
End If
Next
End Sub
よろしくお願いします
No.1ベストアンサー
- 回答日時:
こんにちは。
比較的簡単な方法としては、
クリップボード→データオベジェクト経由で、
コピーした範囲全体のタブ区切りテキストを取得しておいてから、
doc_MyTable.Valueを設定するとか、、、。
Sub Re8747888()
Dim ie As Object
Dim doc_MyTable As Object
Dim oDataObj As Object
Dim wpfreeURL As String
Dim s As String
wpfreeURL = "http://www.tagindex.com/tool/excel_simple.html"
Set ie = CreateObject("InternetExplorer.application")
ie.Visible = True
ie.Navigate2 wpfreeURL
Do While ie.busy Or ie.readystate < 4
DoEvents
' Sleep (10)
Loop
Range("A1:J30").Copy
Set oDataObj = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") 'New DataObject
oDataObj.GetFromClipboard
s = oDataObj.GetText
oDataObj.Clear
Set oDataObj = Nothing
Application.CutCopyMode = False
For Each doc_MyTable In ie.document.all.tags("textarea")
If Trim(doc_MyTable.Name) = "data" Then
doc_MyTable.Value = s
Exit For
End If
Next
End Sub
みたいな感じでどうしょうか?
cj_mover さま
こんちには!
早速のご回答ありがとうございました。
これです。これです。
クリップボードへのコピーがどうもイメージ通りにできなかったのですが、New DataObjectというのがあったのですね。
ありがとうございました!
今後ともよろしくお願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) excel vbaでvlooupの変数がわかりません。 7 2022/05/30 09:35
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Visual Basic(VBA) このVBAでExcelアプリケーションを作成は必要ですか? 3 2023/07/19 21:13
- Visual Basic(VBA) 稀に1円合いません? Sheet1から金額と個数を貼り付ける下記コードで、金額を切り上げるコードを何 3 2022/09/05 15:11
- Visual Basic(VBA) 別シートのデータを参照して値を入れたい。 まとめデータシートのC列D列の値を商品一覧シートのコードが 7 2022/08/17 13:20
- Visual Basic(VBA) 前回ご教授いただいたコードに覚えたてのループ処理で品名りんごAから順に20回for nextでループ 7 2023/01/13 22:01
- Visual Basic(VBA) VBA処理追加 こちらでご教示頂いたのですが回答完了させてしまいましたのでこちらからまた質問させてく 2 2022/10/27 09:57
- Excel(エクセル) VBAの指示の内容 昨日こちらでご教示頂いたのですが初心者な為、一つ一つの指示が何をやっているのかわ 2 2022/10/25 18:08
- Excel(エクセル) VBA 特定の列に入っているテキストをコピペ 2 2023/06/14 11:24
- Visual Basic(VBA) EXCEL VBAにて動的にCheckBOXを複数作成し、同BOXにイベントを追加したい 1 2023/03/16 07:05
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
getElementsByClassName不可
-
Webサイトのurlの保存方法?
-
パソコン版グーグルマップを最...
-
フォルダのショートカットをバ...
-
EdgeでInPrivate上Webページの...
-
パソコンと体質的に相性が悪い...
-
QuickTime のキーボードショー...
-
エクセル固まった時 その作業...
-
パソコンのフリーズが多発して...
-
サイトのショートカットアイコ...
-
Microsoft Edge で InPrivateを...
-
エクセルでマクロ使うとフリー...
-
グーグルスプレットシートで検...
-
サイトのショートカットアイコ...
-
特定のURLだけ違うブラウザーで...
-
Audacityがしょっちゅうフリー...
-
デスクトップのショートカット...
-
operaでインターネットショート...
-
Firefoxの一番下にあるバーが消...
-
クロームのショートカットが作...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
getElementsByClassName不可
-
VBA→IEでtextareaにセル範囲の値
-
エクセルでマクロを使い、多数...
-
エクセルをインターネットエク...
-
VBAで任意の文字がURLに出現す...
-
Webサイトのurlの保存方法?
-
サイトのショートカットアイコ...
-
パソコン版グーグルマップを最...
-
EdgeでInPrivate上Webページの...
-
Microsoft Edge で InPrivateを...
-
エクセルでマクロ使うとフリー...
-
フォルダのショートカットをバ...
-
エクセル固まった時 その作業...
-
指定されたパスは存在しません...
-
クロームの右上のダウンロード...
-
サイトのショートカットアイコ...
-
pdfファイルの回転を、ページ...
-
VMWare Player 上でフリーズ抜...
-
QuickTime のキーボードショー...
-
特定のURLのみを特定のブラウザ...
おすすめ情報