VBAでスクレイピングにてtableタグ内の結合されたセルを整形して配列に格納するサンプルコード
スクレイピング時に統合セルと遭遇した為どうにか出来ないかと思い作成
functionへtableを渡し配列を返してくれる様設定
Sub sample() Dim httpObj As Object: Set httpObj = CreateObject("Scripting.Dictionary") Set httpObj("httpReq") = CreateO
VBA エクセルの抜け殻も閉じる
VBAにてファイルをcloseした際、抜け殻の如く残るエクセルを閉じるサンプルコード
Sub 閉じる()Application.DisplayAlerts = False ThisWorkbook.Save If Workbooks.Count < 1 Then ThisWorkbook.Close If Workbooks.Count = 1 Then Application.QuitApplication.DisplayAlerts = TrueEnd
VBA重複の無いファイル名で保存
本日使用したコード
大量のファイルを作成した際、重複の無い様
ナンバリングしファイルを保存する
サンプルコード
Sub sample2() Dim wb As Workbook: Set wb = Workbooks.Add '処理 'functionに渡すデータをfilesDicに格納する Dim filesDic As Object: Set filesDic = CreateObject("Scripting.Dictionary") S
ECサイト設定時間内だけ表示する
通販を担当していると、日時が来たら案内を出したい、
期間限定のキャンペーンを掲載したい等があり
javascriptにて表示の制御を実現したサンプルコード
infoListに必要なデータオブジェクトを作成し
ループ文で設定時間内であればHTMLを作成し表示するコード
<div id="info"></div><script> // 設定時間中掲載する即時関数 (() => { const now = new Date(); const infoList =
ファイルダウンロード時、保存場所選択画面がいちいち出現する為、ダウンロード先を指定し自動処理出来る様にするFunction
Sub sample() Dim driver As New ChromeDriver Call Se_Download先指定(driver) ' CHORMEを開く driver.Start "chrome" driver.Get ("URL") ' URLを開く '//////処理//////End Su
VBASelenium basicにて2段階認証ページ等にアクセスする際に使用した設定
既存のchromeプロファイルを読み込むFunction
※既存のprofailでCromeを開いた状態だと動かないので閉じて実行する
Sub sample() Dim driver As New ChromeDriver call Se_profail指定(driver) driver.Start "chrome" ' CHORMEを開く driver.Get
他人が使用するVBAツールを作成する際、開くファイルを決め打ちするより選択して開いてもらった方がいい場合に使用したコード
Workbookオブジェクトに格納する仕様
Sub sample() Dim wb1 As Workbook: Set wb1 = ActiveWorkbook '//既存のブックをwb1へ格納 Dim wb2 As Workbook: Set wb2 = ファイル選択して開く '//新しく開く