Sub 列飛ばし転記作業2() Dim wsS As Worksheet, wsT As Worksheet Dim lRS As Long, lRT As Long Dim i As Long, j As Long Dim fnd As Range Dim k1 As String, k2 As String Dim tCol As Long ' シートの設定 Set wsS = ThisWorkbook.Sheets("Sheet1") Se…

Sub 重複メール削除() Dim olApp As Outlook.Application Dim olNamespace As Outlook.Namespace Dim olFolder As Outlook.Folder Dim olTargetFolder As Outlook.Folder Dim olItem As Object Dim emailDict As Object Dim emailKey As String Dim duplicat…

Sub 1列飛ばし転記作業() Dim wsS As Worksheet, wsT As Worksheet Dim lRS As Long, lRT As Long Dim i As Long, j As Long Dim fnd As Range Dim k1 As String, k2 As String Dim tCol As Long ' シートの設定 Set wsS = ThisWorkbook.Sheets("Sheet1") Se…

DAO (Data Access Objects) ライブラリ参照設定のリストから「Microsoft DAO xx.x Object Library」を探し、チェック ADODB (ActiveX Data Objects) ライブラリ参照設定のリストから「Microsoft ActiveX Data Objects x.x Library」を探し、チェック

Sub ExportAccessDataToExcel() Dim db As Object Dim rs As Object Dim dbPath As String Dim query As String Dim ws As Worksheet Dim i As Integer Dim j As Integer ' Accessデータベースのパス dbPath = "D:\サンプルData.accdb" ' Accessデータベース…

Function GetOracleConnectionString(uid As String, pwd As String) As String On Error GoTo ErrorHandler Dim connStr As String connStr = "Provider=MSDAORA.1;User ID=" & uid & ";Password=" & pwd & ";Data Source=YourDataSourceName" GetOracleCon…

参照設定のMicrosoft DAO 3.6 Object Libraryを外し Microsoft Office 14.0 Access database engine Object Libraryに変更

1.リンクテーブルを右クリック ⇒ 「リンクテーブルマネージャー」をクリック 2.該当のデータソース名のものをレ点チェックして、「編集」をクリック 3.接続文字列内にコードを追記DSN=***;APP=Microsoft Office;DATABASE=*****;UID=ユーザ名;PWD=パスワード;