You Look Too Cool » VBAでExcelの表をJSON形式に変換する
Sub 表をJSON形式にする() Dim arr(1000) Dim gyo, retsu, gyosu, cnt As Long Dim lin, temp As String arr(0) = “[" gyo = 2 Do retsu = 1 lin = "" Do temp = Chr(34) & Cells(1, retsu) & Chr(34) & ":" & Chr(34) & Cells(gyo, retsu) & Chr(34) lin = lin & "," & temp retsu = retsu + 1 Loop Until Cells(gyo, retsu) = "" lin = Mid(lin, 2) arr(gyo - 1) = "{" & lin & "}," gyo = gyo + 1 Loop Until Cells(g
AddinBox(プログレスバー)
１．プログレスバー(ProgressBar)とは 時間の掛かる処理を実行している時には､「今動いてるのか？止まっているのか？」という思いで ユーザーは不安になるものです。そこで､その不安を解消するとともに､「どの位進んだのか」を知ら せる為のインターフェースとして使われるのが『プログレスバー』です。エクセルブックを開く時や､ インターネットでダウンロードする時に表示される『青く伸びるバー』の事です。 ＶＢＡで『プログレスバー』を使うには､いくつかの方法がありますので順に説明していきます。 (1) ウィンドウ左下のステータスバーを利用する (2) プログレスバーコントロールを利用する (3) ラベルコントロールを使ってプログレスバーを自作する (4) アドインソフトを利用する (5) ループ処理をUserFormモジュールに移さないで､UserFormのプログレスバーを動か
Excel VBA でバッチファイルを動かす - Individual Package -
Excel VBA（マクロ）でバッチファイルを実行させる方法です。 ポイントはもちろん10行目と11行目です。 Sub データ転送() Dim ShellObject As Object Dim MsgBoxRet As String MsgBoxRet = MsgBox("データ転送を行います。よろしいですか？", vbYesNo + vbInformation) If (MsgBoxRet = vbNo) Then Exit Sub End If Set ShellObject = CreateObject("WScript.Shell") ShellObject.Run "C:\temp\inport.bat", 0, True MsgBox "データ転送完了！", vbOKOnly + vbInformation End Sub ShellObject.Run "バッチファイル",
[Access VBA] Shell関数から実行するコマンドは非同期実行 & 同期実行する方法 - y_tsuda's blog - s21g
[Access VBA] 任意のコマンドを実行するで書いた、Shell関数を使ったVBAでの任意のコマンドの実行方法は非同期なものだと知りました。 Shell関数は任意のコマンドを実行し、コマンドの終了を待たずにShell関数の呼び出し以降のステートメントが実行されていきます。 それではあまりうれしくないときがあるので、同期実行する方法を以下に示します。 この方法を使うと、呼び出したコマンドが終了してから、以降のステートメントが実行されていきます。 以下、ソースコード。 1 Dim strShellCommand As String ' シェルコマンド 2 Dim objWSH As Object ' WSH 3 4 strShellCommand = " " ' 実行したいコマンド 5 6 ' WSHを使ってコマンドを実行する 7 Set objWSH = CreateObje
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
