- 締切済み
グーグルクローンで入力するマクロ
グーグルクローンで(IEですると、あまりにも時間がかかるので)http://www.vid-dl.net/を開き、動画 URLの空白のところに"sssss"と入力したいのですが、うまくいきません(できれば、リンク解析のボタンも押したいのですが、追記してもらえれば助かります)？ どなたか、修正していただけないでしょうか? よろしくお願い致します。 Sub test6() Dim chromePath As String chromePath = """C:\Program Files (x86)\Google\Chrome\Application\chrome.exe""" Shell (chromePath & " -url http://www.vid-dl.net/") Application.Wait Now + TimeValue("00:00:02") With CreateObject("WScript.Shell") Do If .AppActivate("動画URL") Then .SendKeys "sssss" DoEvents .SendKeys "{enter}" Exit Do End If DoEvents Loop End With End Sub
- goldplayer4649
- お礼率0% (0/1)
- その他MS Office製品
- 回答数1
- ありがとう数0
- みんなの回答 （1）
- 専門家の回答
みんなの回答
- kamikami30
- ベストアンサー率24% (812/3335)
関連するQ&A
- マクロ グーグルモバイル
エクセルのセルに検索したい文字を入力し、 マクロで以下のコードをやったのですが、 Sub メニュー追加() With CommandBars("Cell").Controls.Add(before:=1) .Caption = "グーグル検索" .OnAction = "グーグル検索" End With End Sub Sub グーグル検索() CreateObject("Wscript.Shell").Run "http://google.com/m?q=" & ActiveCell.Value, 1 End Sub 文字化けしてしまいます。 エクセルに入力されている文字を一度エスケープにしないと無理なのでしょうか？ PCのグーグルだと、なぜかできます。
- ベストアンサー
- オフィス系ソフト
- エクセルVBAの値貼り付けについて
いつもお世話になっております。 エクセルVBAについての質問ですが 以下のコードを使用するとどうしても元の書式の貼り付けになってします。 値（テキスト）貼り付けを実行したいのですがどこのコードをどのように変えればいいか教えてください。 ------------------------------------------------------------------------------------------- Sub IE_Open_Copy() Dim objIE As Object Const OLECMDID_SELECTALL = 17 Const OLECMDID_COPY = 12 Const OLECMDEXECOPT_DODEFAULT = 0 Const URL As String = "https://okwave.jp/question/" Set objIE = CreateObject("InternetExplorer.Application") With objIE .Visible = True .Navigate URL Do While .Busy DoEvents Loop Do Until .ReadyState = 4 DoEvents Loop .ExecWB OLECMDID_SELECTALL, OLECMDEXECOPT_DODEFAULT .ExecWB OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT Application.Wait Now() + TimeValue("00:00:05") .Quit End With AppActivate Application.Caption, True Range("A1").Select Application.Wait Now() + TimeValue("00:00:05") Application.SendKeys "^v" Set objIE = Nothing End Sub ---------------------------------------------------------------------------------------------
- 締切済み
- Visual Basic
- エクセルVBAで開いている他のアプリにデータ転記
Sub TEST_Sendkey01() は、エクセルVBAでメモ帳を立ち上げ、データを転記するコードです。 期待通りに作動します。 http://okwave.jp/qa6760498.html Sub TEST_Sendkey01() Dim App As String, tmp As String Dim Ret, myAr Dim i As Long, n As Long App = "notepad.exe" MsgBox App & "を実行します" Ret = Shell(App, vbNormalFocus) If Ret Then AppActivate Ret, True Else MsgBox "失敗しました。" Exit Sub End If myAr = Split("ABC101,BBB202,CCC303", ",") For n = 1 To 2 For i = 0 To UBound(myAr) SendKeys myAr(i) SendKeys "{TAB}" Application.Wait Time:=Now + TimeValue("00:00:01") Next i SendKeys "{ENTER}" Next n AppActivate Application.Name, False MsgBox "終了しました。" AppActivate Ret End Sub 質問は、あらたにメモ帳を立ち上げるのではなく、すでに開いている既存のメモ帳（TESTNOTE.txt）のデータに追加でデータを転記する方法です。 下記のようにしてみましたが、 AppActivate "TESTNOTEtxt - メモ帳" の段階で「実行時エラー5 プロシージャの呼び出し、または引数が不正です」となってしまいます。 どのように記述すればよいのでしょうか？ Sub TEST_Sendkey02() Dim myAr Dim i As Long, n As Long AppActivate "TESTNOTEtxt - メモ帳" myAr = Split("D11,E22,F33", ",") For n = 1 To 2 For i = 0 To UBound(myAr) SendKeys myAr(i) SendKeys "{TAB}" Application.Wait Time:=Now + TimeValue("00:00:01") Next i SendKeys "{ENTER}" Next n AppActivate Application.Name, False MsgBox "終了しました。" AppActivate "TESTNOTEtxt - メモ帳" End Sub
- ベストアンサー
- その他MS Office製品
- VBA ＩＥ読み込み出来ないときの処理
エクセルＶＢＡで ＩＥ読み込み完了まで、というサンプルは有るのですが 時間来ても、読み込め無い時 中止の処理ですが、 下記で如何でしょうか（実験が出来ないので、お知恵拝借） さらに、もっと、スマートな方法が有ればご教示ください。 Set IE = CreateObject("internetExplorer.application") url = yobiurl ' "http://admin.blog.fc2.com/control.php?mode=editor&process=new" With IE .Navigate url .Visible = True i = 1 Do While .Busy = True Call Sleep(50) '0.05sec * 400 =20秒 DoEvents i = i + 1 If i > 399 Then .Quit ' End With Set IE = Nothing Exit Sub End If Loop i = 1 Do While .document.ReadyState <> "complete" Call Sleep(50) DoEvents i = i + 1 If i > 399 Then .Quit ' End With Set IE = Nothing Exit Sub End If Loop
- ベストアンサー
- Visual Basic
- 【VBA】IEのリンクを新しいタブで開く
VBAでIEを制御しリンク（アンカー）<a href="***">を新しいタブで開くようにしたいのですが可能でしょうか？ 仮にグーグルのトップページ(http://www.google.co.jp/)の『検索オプション』(http://www.google.co.jp/advanced_search?hl=ja)を新しいタブで開くとします 実際に開きたいリンクのURLは固定ではないためURLの指定では開けませんが、飛びたいリンクの文言（『検索オプション』）は固定です リンクに飛ぶ前に飛ぶ先のURLを取得する仕方か、Shift+Ctrl+クリックのようにリンクを新しいタブで開く方法を教えてください 一度普通にリンクに飛んでからURLを取得し、戻ってから新しいタブで開くぐらいしかできないのでしょうか？ Sub 新しいタブで開く() Dim objIE As Object Dim objShell Dim URL As String Set objShell = CreateObject("Shell.Application") For n = objShell.Windows.Count To 1 Step -1 Set objIE = objShell.Windows(n - 1) If Right(UCase(objIE.FullName), 12) = "IEXPLORE.EXE" Then objIE.Navigate "http://www.google.co.jp/" Exit For End If Next Set objShell = Nothing objIE.Visible = True Do While objIE.Busy = True Or objIE.ReadyState <> 4 DoEvents Loop For Each Obj In objIE.Document.getElementsByTagName("a") If Obj.innerText = "検索オプション" Then Obj.Click Do While objIE.Busy = True Or objIE.ReadyState <> 4 DoEvents Loop URL = objIE.Document.URL objIE.GoBack Do While objIE.Busy = True Or objIE.ReadyState <> 4 DoEvents Loop objIE.Navigate URL, CLng(&H800) Exit For End If Next End Sub よろしくお願いいたします
- ベストアンサー
- オフィス系ソフト
- VBAでWebに値を入力
VBAでWebに値を入力する操作を考えています。 エクセルシートのA1に入っている値をWeb上に入力する操作なのですが、 以下のコードを実行すると「AllLog.keyword.Value = t」の部分でエラーになります。 googleではkeywordのところを「q」、yahooではkeywordのところを「p」にすれば問題ないのですが、 神奈川中央交通のページではエラーになってしまいます。 なぜですか？？ Sub google() Dim objIE As InternetExplorer '参照設定:Microsoft Shell Controls and Automation Dim objShell As Shell Dim WinFlg As Boolean Dim objWin As Object Dim AllLog As Object On Error GoTo EndProcess Set objShell = New Shell For Each objWin In objShell.Windows If TypeName(objWin) = "IWebBrowser2" Then WinFlg = True Set objIE = objWin Exit For End If Next Set objShell = Nothing If WinFlg = False Then MsgBox "IEオブジェクトが取得できません", vbCritical Exit Sub End If EndProcess: If Err() > 0 Then MsgBox Err.Description End If With objIE Set AllLog = .Document.all t = Cells(1, 1) AllLog.keyword.Value = t End With Set objIE = Nothing End Sub
- ベストアンサー
- Visual Basic
- 下記のマクロをもっと早くするには？
下記のマクロは、 A列にあるURLがSSL化（https）されているかを調べるものです。 このマクロを動かすと、大体３秒に１つのURLを調べるくらいの早さです。 もっと早く調べられるようにするには、どのような記述にすればできるでしょうか？ また、エクセルの他の設定で、マクロを早くできたりしますか？ よろしくお願いいたします。 Sub SSL() Dim objHttp As Object Dim nURL As String Dim strURL As String Dim i As Long, f As String, l As String Dim Lastrow As Long, getLine As Long Set objHttp = CreateObject("WinHttp.WinHttpRequest.5.1") On Error GoTo ErrHandler 'A1から getLine = Cells(Rows.Count, 2).End(xlUp).Row Lastrow = Cells(Rows.Count, 1).End(xlUp).Row If getLine = Lastrow Then MsgBox "既に終わっているか、データがないです。", vbExclamation: Exit Sub If getLine < Lastrow And Cells(1, 2).Value <> "" Then getLine = getLine + 1 Else getLine = 1 '最初の行が1行目からの場合 End If For i = getLine To Lastrow strURL = LCase(Trim(Cells(i, 1).Value)) 'A列の登録URL strURL = Replace(strURL, "https:", "http:") If strURL Like "http*" Then objHttp.Open "GET", strURL, False objHttp.send DoEvents 'ESC割り込み可能にする With objHttp If .Status = 200 Then nURL = .Option(1) 'WinHttpRequestOption_URL f = Mid(strURL, 1, InStr(strURL, "://")) l = Mid(nURL, 1, InStr(nURL, "://")) If nURL = "" Then Cells(i, 2).Value = "no URL" ElseIf nURL <> "" Then If LCase(f) = LCase(l) Then Cells(i, 2).Value = "non SSL" Else Cells(i, 2).Value = "https" End If End If Else Cells(i, 2).Value = "Err:" & .Status End If End With End If Endline: nURL = "" strURL = "" Next i MsgBox "Finished" Exit Sub ErrHandler: If Err() <> 0 Then Cells(i, 2).Value = Err.Number 'マイナスになるのは外部エラー GoTo Endline End If End Sub
- 締切済み
- Visual Basic
- VBA IEを操作。ファイルダウンロード
IEを操作して、ファイルをダウンロードしようと思います。 色んなサイトからとってきて、使わせてもらっています。 '---------------------------------IEを開くときに使う Sub IE_OPEN(webUrl As String) Dim objShell Dim writesheet As Worksheet Dim n As Long Dim ID As String, Password As String Set objShell = CreateObject("Shell.Application") Set ie = CreateObject("InternetExplorer.Application") ie.Visible = True ie.Navigate2 webUrl Do While ie.Busy Or ie.readyState <> 4 DoEvents Loop Dim objINPUT Set objINPUT = ie.document.getElementsByTagName("INPUT") 'ループで頭からテキストが 次へ を探す For n = 0 To objINPUT.Length - 1 '※ type="submitボタンなので、.InnerTextじゃなくて、.Valueです ※※注意 If InStr(objINPUT(n).Value, "ログイン") > 0 Then '文字列の中から見つけたら Worksheets("Sheet1").Activate Do While ie.Busy Loop objINPUT(n).Click '見つけたINPUTタグのオブジェクトをクリック Do While ie.Busy Loop Exit For End If Next Set objINPUT = Nothing 'オブジェクト変数解放 End Sub '------------------------------IEを開く（この段階では既に開いてあります。） Private Sub CommandButton1_Click() Do While ie.Busy Or ie.readyState <> 4 DoEvents Loop ie.document.all.ah_ehName.Value = Me.ComboBox1.List(Me.ComboBox1.ListIndex) 'ID Do While ie.Busy Loop Dim objINPUT Dim n As Long Set objINPUT = ie.document.getElementsByTagName("INPUT") For n = 0 To objINPUT.Length - 1 If InStr(objINPUT(n).Value, "ダウンロード") > 0 Then objINPUT(n).Click Do While ie.Busy Loop Exit For End If Next Do While ie.Busy = True DoEvents Loop SendKeys "%S", True'保存 Do While ie.Busy = True DoEvents '何もしないループ（笑） Loop SendKeys "%O",True'ファイルを開く？ Do While ie.Busy = True DoEvents Loop 'ie.Quit End Sub ’＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝－ 面倒なので、IEはPublic変数として モジュールに書いています。 （色んなモジュールを経由する必要があるため、このような手段を取りました） SendKeysをIEに送るというのが出来ずに困っています。 ダウンロードというボタンを押してのダウンロードなので、 ダウンロード用のURL等は分かりません。 Excel2003を使っています。 どうにかSendkeysで出来ないでしょうか？ もしくは、もう少し分かりやすい方法は無いでしょうか。 （ファイルを保存しますか？のダイアログの「保存」をクリックして 所定の場所におき、開きたい。 そのまま開くのでもいいけれど、動作が不安定になるのは困る） 以上、よろしくお願い致します。
- 締切済み
- Visual Basic
- ワードでタイマーの設定 日本語入力ができない
こんにちは。先日ワードでタイマーを設定する方法を 教えて頂いた者です。 http://oshiete1.goo.ne.jp/kotaeru.php3?q=2005982 コマンドボタンをクリックし、設定時間が来ると自動的にメッセージボックスが出て文章の保護をかけるという設定です。 設定はうまくいったのですが、コマンドボタンをクリックしたあとに入力を始めると、文字入力がうまくいきません。「あいうえお」は入力出来ますが、「かきくけこ」や「さしすせそ」などが「KあKいKうKえKお」や「SあSいSうSえSお」になってしまいます。 コマンドボタンに設定したコードは次の通りです。 Private Sub CommandButton1_Click() Static isClick As Boolean If Not isClick Then isClick = True SendKeys "%({E})", False SendKeys "+({L})", False SendKeys "{HOME}", False Pause 10 MsgBox "作業を終了して下さい。" isClick = False ActiveDocument.Protect Password:="hokuden", NoReset:=False, Type:= _ wdAllowOnlyComments End If End Sub Public Sub Pause(ByVal PauseTime As Double) Dim E As Double E = Timer + PauseTime Do While Timer < E DoEvents Loop End Sub 日本語入力を正しく入力できるようにするのはどうすればいいでしょうか？ よろしくお願い致します。
- ベストアンサー
- オフィス系ソフト
- 実行中のマクロを中断したい
過日、「マクロの中断」について質問し適切な回答をいただき無事解決したものです。 ところが、初心者の悲しさ、少し変わると全く応用がききません。 Range("A1:B10")を読み上げている途中で中断したいのです。前回ご教示いただいたところにより 「DoEvents」や「Me.Repaint」「Sleep」などをあちこち挿入してみましたがうまくいきません。理屈、理論を理解できていないので仕方ないのでしょうがよろしかったら又ご指導のほどお願いします。Excel2003です。 Dim c As Range Dim CancelFlg As Integer Private Sub CommandButton1_Click() Range("A1:B10").Select CancelFlg = 0 For Each c In Selection ’ DoEvents Application.Speech.Speak c.Value ’ DoEvents If CancelFlg = 1 Then Exit For ’ DoEvents Next c Range("A1").Select End Sub Private Sub CommandButton2_Click() CancelFlg = 1 End Sub 前回のご教示いただいたもの Private Sub CommandButton1_Click() Dim i As Integer CancelFlg = 0 For i = 1 To 100 DoEvents ActiveCell.Value = 1 ActiveCell.Offset(1, 0).Activate Application.Wait (Now + TimeValue("0:0:01")) If CancelFlg = 1 Then Exit For Next i End Sub Private Sub CommandButton2_Click() CancelFlg = 1 End Sub
- ベストアンサー
- オフィス系ソフト
