EXCEL 【VBA】【Excel】CDO.Messageを使ったメール解析プログラム例
Sub メール解析sample() '参照設定 Microsoft CDO for Windows 2000 Library Dim CDOMsg As CDO.Message Dim Ws As Worksheet Dim RowInde...
Tech
EXCEL EXCEL 【Excel】【VBA】ADODB.Streamを利用したコード変換機能付きCSVファイル出力
ADODB.Stream (Microsoft ActiveX Data Objects)を使えば、コード変換をしながらＣＳＶデータを出力することも可能。ＣＳＶファイルの還元先システムが、Windows(Excel）以外で、文字コードを気に...
EXCEL 【Excel】【VBA】ADODB.Streamを利用したコード変換機能付きCSVファイル取込
ADODB.Stream (Microsoft ActiveX Data Objects)を使えば、コード変換をしながらＣＳＶデータを取り込むことが可能。ＣＳＶファイルの作成元のシステムが、Windows(Excel）以外で、文字コードを気...
EXCEL 日付ブックマークに日付に置換
Sub 日付ブックマークに日付に置換() Dim objRange As Word.Range Set objRange = Me.Bookmarks("日付ブックマーク").Range objRange = Date End Sub W...
Tech TechNet ギャラリーは読み取り専用になり、間もなく廃止される予定です。必ず、プロジェクトとコードをバックアップしてください
たまに見てたscriptcenterが、間もなく廃止のとのこと！プロジェクトとコードをバックアップしないと
Tech My DNS への通知スクリプト
papanda925@papandaSV:/usr/local/bin$ cat NoticeIP.shcurl --interface eth0 -u userID:Password ポイントは、--interface eth0 複数イ...
Tech 連絡先を Outlook から Word にコピーする
VBSub CopyCurrentContact() Dim OutlookObj As Object Dim InspectorObj As Object Dim ItemObj As Object Set OutlookObj = Cr...
Tech PowerPoint で空のテキスト ボックスを削除する
Sub RemoveEmptyTextBoxes() Dim SlideObj As Slide Dim ShapeObj As Shape Dim ShapeIndex As Integer For Each SlideObj In Ac...
EXCEL Excel ワークシートから空の行を削除する
Sub DeleteEmptyRows() SelectedRange = Selection.Rows.Count ActiveCell.Offset(0, 0).Select For i = 1 To SelectedRange If ...
Tech Outlook でメールを作成する
Sub MakeMessage() Dim OutlookMessage As Outlook.MailItem Set OutlookMessage = Application.CreateItem(olMailItem) Outlook...