読者です 読者をやめる 読者になる 読者になる

Fight the Future

何かを始めたら、半分成功したのと同じ

エラーが発生してもエラーが発生した次の行から処理を進める

errorHappened: ' エラー処理 Resume Next

XmlHttpRequestを送る

VBEでツール→参照設定でMicrosoft XMLを追加しておく。 Dim req As MSXML2.XMLHTTP50 Set req = New XMLHTTP50 'GETの場合 '第3引数はリクエストとマクロの同期をとるか 'Trueは同期しない 'Falseは同期する Call req.Open("GET", "http://", False) 'POSTの…

エラー処理

On Error GoTo errorHappened ... errorHappened: 'エラーメッセージを表示 MsgBox(Err.Description)

VBでURLエンコーディング

http://www.geocities.co.jp/SilkRoad/4511/vb/urlenc.htm

列を非表示にする

worksheet.Columns(1).Hidden = True

標準モジュールやクラスモジュールの名前を変更する

VBEのメニューから 表示→プロパティ ウィンドウ→プロパティ→オブジェクト名 で名前を変更

ファイルを出力する

Public Sub makeTextFile(fileName As String, buff As String) Dim fileNo As Integer fileNo = FreeFile Open fileName For Output As #fileNo Print #fileNo, buff Close #fileNo End Sub

xmlファイルを読み込んでXPathを使う

ツール→参照制約→Microsoft XML, v?.0を選択して追加(http://www.microsoft.com/downloads/details.aspx?FamilyID=993c0bcf-3bcf-4009-be21-27e85e1857b1&DisplayLang=ja) Dim xDoc As MSXML2.DOMDocument ' DOM Parserオブジェクトを生成する Set xDoc = …

ファイル選択ダイアログを表示

Private Function showFileDialog(ByVal title As String) As String Dim selectedFileName As String selectedFileName = "" With Application.FileDialog(msoFileDialogOpen) .title = title .AllowMultiSelect = False .InitialFileName = ThisWorkbook.p…

シートを非表示にする

Excelの書式→シート→表示しない 再表示するには 書式→シート→再表示

テキストファイルを読み込む

fiieNameはフルパスで。 Function loadTextFile(fileName As String) As String Dim fileNo As Integer Dim lineText As String Dim result As String fileNo = FreeFile Open fileName For Input As #fileNo Do While Not EOF(fileNo) Line Input #fileNo, …

ブックを読み取り専用で開く

Dim book As Workbook Set book = Workbooks.Open(fileNameWithPath, ReadOnly:=True)

エラーになっても処理を継続する

' エラーになっても処理を継続する On Error Resume Next ' 元に戻す On Error GoTo 0

ディレクトリのエクセルファイルだけを読む

Dim bookName As String bookName = Dir("指定するディレクトリ" & "\*.xls") While bookName <> "" ' ブックを開いて処理を実行する Wend

実行中にアラート(ダイアログ)を出さない

Application.DisplayAlerts = False

実行中に画面を切り替えない

Application.ScreenUpdating = False