VBA・Office 【EXCEL】【VBA】Application.OnTimeを利用し指定時間経過後にサブプロセスを実行する例
Option ExplicitSub Main() Application.OnTime Now + TimeValue("00:00:10"), "SubProc" MsgBox "Main 実行"End SubPrivate Sub S...
VBA・Office
VBA・Office VBA・Office OpenObjectメソッドを活用したサンプルコード集
' Reference to Microsoft ActiveX Data Objects 2.5 Library' Reference to Microsoft CDO for Windows 2000 LibraryFunction L...
VBA・Office 【VBA】【Excel】CDO.Messageを使ったメール解析プログラム例
Sub メール解析sample() '参照設定 Microsoft CDO for Windows 2000 Library Dim CDOMsg As CDO.Message Dim Ws As Worksheet Dim RowInde...
VBA・Office 【VBA】【Word】Word 文書に改ページを挿入する
新しい Word 文書を作成し、「This is age 1」と入力して、改ページを挿入してから、2 ページ目に「This is page 2」と入力するスクリプトセンターのサンプルコードConst wdPageBreak = 7 Set ...
VBA・Office 【Excel】【VBA】ADODB.Streamを利用したコード変換機能付きCSVファイル出力
ADODB.Stream (Microsoft ActiveX Data Objects)を使えば、コード変換をしながらＣＳＶデータを出力することも可能。ＣＳＶファイルの還元先システムが、Windows(Excel）以外で、文字コードを気に...
VBA・Office 【Excel】【VBA】ADODB.Streamを利用したコード変換機能付きCSVファイル取込
ADODB.Stream (Microsoft ActiveX Data Objects)を使えば、コード変換をしながらＣＳＶデータを取り込むことが可能。ＣＳＶファイルの作成元のシステムが、Windows(Excel）以外で、文字コードを気...
VBA・Office 日付ブックマークに日付に置換
Sub 日付ブックマークに日付に置換() Dim objRange As Word.Range Set objRange = Me.Bookmarks("日付ブックマーク").Range objRange = Date End Sub W...
VBA・Office 連絡先を Outlook から Word にコピーする
VBSub CopyCurrentContact() Dim OutlookObj As Object Dim InspectorObj As Object Dim ItemObj As Object Set OutlookObj = Cr...
VBA・Office PowerPoint で空のテキスト ボックスを削除する
Sub RemoveEmptyTextBoxes() Dim SlideObj As Slide Dim ShapeObj As Shape Dim ShapeIndex As Integer For Each SlideObj In Ac...
VBA・Office Excel ワークシートから空の行を削除する
Sub DeleteEmptyRows() SelectedRange = Selection.Rows.Count ActiveCell.Offset(0, 0).Select For i = 1 To SelectedRange If ...