l3651s31io4のプロフィール

VBAでエクセルからツイッターに連続投稿したいのですが難しいでしょうか？？ 試しに作ってみたVBAです。 'モバイルなら投稿できるかも・・・？ Sub tweet() Dim ie As InternetExplorer Dim txtAreaInput As HTMLTextAreaElement Set ie = CreateObject("internetExplorer.Application") 'IEを開く○ ie.Visible = True ie.Navigate "https://mobile.twitter.com/compose/tweet" 'ツイッターを開く○ Do While ie.Busy Or ie.ReadyState < READYSTATE_COMPLETE 'ページの読み込みを待つ○ DoEvents Loop Range("B2").Select '画像ファイルのセルをコピー○しかし連続となるとやり方わからないです。 Selection.Copy Set txtAreaInput = ie.Document.getElementsByName("textarea")(0) 'セルを選択× txtAreaInput.Value = ActiveSheet.Cells(2, 1).Value ObjIE.Document.all("camera-input").Click '画像パスを開く×そもそもカメラボタンが消えている？？ SendKeys "^v{ENTER}" '画像ファイルのパスをペーストしエンター×効かない？？ For Each Anchor In ie.Document.getElementsByTagName("A") 'ツイートを投稿×ボタンが押せない If Anchor.innerText = " ツイート " Then Anchor.Click Exit For End If Next End Sub

すっごく好きになっちゃって、最初は良かったんですが押しすぎて遂にスルーされるようになりました笑 このまま諦めきれなくて告白して気持ちよく振られて諦めたいんですが 自己中ですかね？相手には迷惑だとわかっているのに、、好きだけ言いたくてモヤモヤします

HLOOKUP関数がうまく扱えなかったため質問させていただきます。 現在楽譜の曲目、およびその曲の情報をまとめているのですが、 量が膨大なため、同じ曲名を入力した際に、同列のセルの情報も 合わせて参照できないかと考えています。 ex.) 曲名　　　作曲　　　　編曲・・・ 花　　　瀧廉太郎　　山田耕筰・・・ ・・・と入力したのち、曲名の行に再び『花』と入力した際、 前者の列の情報（作曲、編曲）も併せて参照できる方法を探しています。 各LOOKUP関数を用いようとしましたが、範囲, 列番号の入力すべき値が理解できず、 結果として失敗に終わりました。 ご助言お願いいたします。

EXCEL VBAで　URLの内容を取得しようとしていますが、URLの内容中に FINNAIRの広告ラベル? がトップにでてくる場合には　URLの内容が取得できません。広告ラベルが　時々に変更されますが、FINNAIR以外の 広告ラベルの場合は　URLの内容を取得できます。　FINNAIRの　広告ラベルも　取得できるようにするには、どうすればいいのでしょうか? FINNAIRの広告ラベルは、短時間のうちに　変化しているようです。なぜ、取得できないのか、まったくわかっていません。　解決方法を教えていただきたく、よろしくお願いします。 Sub IEデータ取得() Dim IE As Object Set IE = CreateObject("InternetExplorer.Application") IE.Visible = True IE.navigate "http://www.japantimes.co.jp/news/" While (IE.readyState <> 4) Or IE.busy = True DoEvents Wend DoEvents IE.document.body.Focus IE.ExecWB 17, 0 IE.ExecWB 12, 0 Excel.Application.CutCopyMode = False Sheets.Add.name = "Formatテキスト" Range("A1").Select ActiveSheet.PasteSpecial Format:="テキスト" IE.Quit Set IE = Nothing End Sub

フィリーズの原因 とりあえず、アクティブプリンターのみで印刷を連続すると異常なし 交互に印刷すると今度はリソース不足が出ました。 最後に、EPSON LPプリンターのみに連続印刷でやはりリソース不足が出ました。 どうもアクティブプリンターからの切替でリソースを必要としているみたいですが 対策はをご教示下さい。 ======================================== Sub チェンジプリンター() '印刷切り替え Dim myPrinter As String myPrinter = Application.ActivePrinter '現在のプリンターを記憶 If Worksheets("DeviceRead-Write").Cells(6, 13).Value = 2 Then 'I6が２ならEPSON_2プリンターに印刷する Application.ActivePrinter = "EPSON_2 on Ne00:" 'プリンターを切り替える ActiveSheet.PrintOut 'シートFormの印刷 Application.ActivePrinter = myPrinter 'プリンターを元に戻す End If If Worksheets("DeviceRead-Write").Cells(6, 13).Value = 1 Then 'I6が1ならEPSON LPプリンターに印刷する ActiveSheet.PrintOut 'シートFormの印刷 End If End Sub ==========================================