任意の件名からメールが来たら、メールの以下の文を置換してへんしんする。
Private Sub Application_NewMailEx(ByVal EntryIDCollection As String) Dim objNamespace As Outlook....
0
0
Comment0
49 search resultsShowing 1~20 results
Stocked
You need to log-in
任意のExcelの指定した列をインポートする方法
Sub ImportExcelMultipleColumns() ' 変数の定義 Dim fDialog As FileDialog Dim filePath As String Dim xlA...
0
0
Comment0
Outlookの連絡帳から指定した部署のメールアドレスを取得する。
Sub ImportMultipleDepartmentsFromGAL() Dim olApp As Outlook.Application Dim olNamespace As Outloo...
0
0
Comment0
OutlookからAccessの社員テーブルに存在する社員のメールアドレスを取得する
Sub GetEmailAddressesFromOrganization() Dim olApp As Outlook.Application Dim olNamespace As Outlo...
0
0
Comment0
エクセルのデータからAccessにデータをインポート
Sub ImportFromAlreadyOpenWorkbook() Dim xlApp As Object Dim xlWorkbook As Object Dim xlWorksheet ...
0
0
Comment0
sharepointListに接続してレコードを追加する。
Sub AddRecordToSharePointList() Dim db As DAO.Database Dim rst As DAO.Recordset Dim strUser As St...
0
1
Comment0
文字列の分割を最初に出てきた分割文字のみで分割
_で分割したいけどスプリットで分割すると後の-まで分割されちゃうよ。。って人のために Function SplitFirstUnderscore(ByVal text As String) As...
0
0
Comment0
acsessでエクセルをマージする方法
Sub MergeExcelFilesAndExport() Dim fso As Object Dim folder As Object Dim file As Object Dim xlAp...
0
0
Comment0
ショートカットキーをパワーシェルで押す方法
# System.Windows.Formsアセンブリをロード Add-Type -AssemblyName System.Windows.Forms # Ctrl+Q の例 $sendKeys...
0
0
Comment0
csvを開いた時に、エンコードを確認する方法
Sub DetectEncoding() Dim filePath As String Dim fileNum As Integer Dim bom(0 To 2) As Byte Dim en...
0
1
Comment0
選択したディレクトリの配下にあるディレクトリのExcelファイルパスを全て取得
Sub GetAllExcelFiles() Dim folderPath As String Dim filePaths As Collection Set filePaths = New C...
0
0
Comment0
辞書のキーと一致した数をカウントする方法
Sub CountTrueFalsePerKey() Dim ws As Worksheet Set ws = ThisWorkbook.Sheets("Sheet1") ' 対象のシート名を指...
0
0
Comment0
PowerShellでアクセスにあるテーブル情報を元にoutlookから予定表を取得する方法
# Accessデータベースの接続文字列 $connectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Path\T...
0
0
Comment0
outlookからAccessに予定表をインポートする方法
Sub ImportCalendarsFromAccessUserList() Dim oApp As Object Dim oNS As Object Dim oFolder As Objec...
0
1
Comment0
検索した文字列の隣をクリックする方法
// 仮の変数にPower Automate Desktopから取得した文字列を設定 var searchText = "ここに検索文字列を入力"; // 検索文字列を含む<td>...
0
0
Comment0
時間の差分を分単位で求める方法
Dim startTime As Date Dim endTime As Date Dim diff As Date Dim minutes As Long ' 開始時刻と終了時刻を設定 sta...
0
0
Comment0
Power Automate Desktopを使用して、Webページ上でaria-label属性が特定の値に一致するUI要素のセレクターを取得する方法
Web ブラウザを開く 最初に、「Web ブラウザを開く」 アクションを使用して、操作したいWebサイトを開きます。 UI要素を識別する Webページ上の特定のaria-labelを持つ要素を識...
1
0
Comment0
TCPを使ったチャットアプリの作り方
TCPチャットサーバー import socket import threading def client_thread(conn, client_address, rooms, clients...
1
1
Comment0
Accessでフォルダ単位でCSVを指定した期間でインポートする方法
Function ImportCSVFromFolder() Dim folderPath As String Dim csvFile As String Dim conn As ADODB.C...
0
0
Comment0
access vbaでcsvを指定した期間でインポートする方法
Function ImportCSVData() Dim conn As ADODB.Connection Dim rs As ADODB.Recordset Dim strSQL As Str...
0
0
Comment0
49 search resultsShowing 1~20 results
Qiita is a knowledge sharing service for engineers.
- You can follow users and tags
- You can stock useful information
- You can make edit suggestions for articles