Dictionaryと自作クラスで配列

VBA

'クラスモジュールKakunouClassを作成 Public Name As String Public Father As String Public Mother As String '自分自身を返す Public Property Get Self() As KakunouClass Set Self = Me End Property '標準モジュール等 Dim kakunou_dic, buf As Strin…

2019-02-09

エクセルシートを個別にブック保存する連続処理

VBA ファイル処理 Excel

大量のシートを抱えたブックの全シートを、別々のブックにしたかった。シート1枚目を残し、シート名をファイル名としてブック保存するだけ。 Sub ブック吐き出し() Dim strSaveFileName As String, strSavePath As String strSavePath = ThisWorkbook.Path …

2019-02-09

ブラウザIEを開いてエクセルにコピペする処理

VBA ブラウザ操作 Excel

Private Declare Sub Sleep Lib "kernel32" (ByVal ms As Long) '処理待機Sleep用 'IE上で全て選択とコピーを行ない、Excelの新規シートに貼り付ける Function getHTML(strSheetName As String, strUrl As String) As Boolean getHTML = True Dim objIE As O…