accessファイルの abc.mdbのtable1のフィールド1のIDの数値を
現在開いているエクセルファイル Q.xlsxの
A2セルに移行したいのですが
エクセルのVBAにおいて
Sub IDエクセルへ移行()
'
'Dim myCon As New ADODB.Connection
Dim myRecordSet As New ADODB.Recordset
Dim mySQL As String
Dim dbFile As Variant
Dim mySheetName As Variant
Dim i As Integer
dbFile = "C:\Users\USER\Desktop\ABC\abc.mdb"
myCon.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & dbFile & ""
myCon.Open
mySQL = "SELECT * FROM table1"
myRecordSet.Open mySQL, myCon, adOpenDynamic
mySheetName = ActiveSheet.Name
With Worksheets(mySheetName)
.Cells(1, 2).Value = myRecordSet!ID
End With
myRecordSet.Close
Set myRecordSet = Nothing
myCon.Close
Set myCon = Nothing
'
'
ActiveWorkbook.Save
End Sub
-------------
上記を実行すると
objectがありません
と
myCon.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & dbFile & ""
ここの部分が黄色くなってしまいます
ここが さっぱり意味不明です
すみません
宜しくお願い致します
Microsoft ActiveX Data Objects 2.8 Library 6.1も
参照設定で チェックを入れました
win10 office365
実行時エラー1004で「申し訳ございません。が見つかりません。名前が変更されたか、移動や削除がおこなわれた可能性があります。」と表示されてしまう。
あるフォルダ内にある複数のファイルから、作成日・更新日が最新のファイルのシートを作業中のブックにコピーするVBAなのですが上記のエラーが出てしまい原因が分かりません。
VBA初心者なので基本的なことかもしれませんがアドバイスよろしくお願い致します。
Sub コピー()
Dim FileTime As Date
Dim MaxTime As Date
Dim FileName As String
Dim MaxFileName As String
With CreateObject("WScript.Shell") 'カレントフォルダを指定
.CurrentDirectory = "C:\Users\○○\Desktop\○○\○○\○○\"
End With
FileName = Dir("*.xlsx") 'ワイルドカードで拡張子「xlsx」ファイルを取得
Do While FileName <> "" 'ファイルを取得出来なくなるまでループ
FileTime = FileDateTime(FileName) '取得したファイルの日時を取得
If FileTime > MaxTime Then '時間を比較
MaxTime = FileTime '日付が大きい場合は格納
MaxFileName = FileName '日付が大きい場合はファイル名を格納
End If
FileName = Dir()
Loop
ShCount = ThisWorkbook.Worksheets.Count '実行したファイルのシート数を取得
Workbooks.Open MaxFileName ←ここでエラーが出る
Worksheets(2).Copy after:=ThisWorkbook.Worksheets(ShCount) 'シートの2つ目を指定して末尾に追加
Workbooks(FileName).Close savechanges:=False '取得したファイルを閉じる
End Sub
VB6でプログラムについて、みなさんアドバイスをいただけませんでしょうか？
現在、下記のような動作をするプログラムを作っていていますがうまくいきません。
テキストボックスに1～100までの数値を400個入力します。
ボタンを押してこのテキストボックスヘ数値を入力したとき、入力した数値が10未満の
場合はメッセージボックスで「NG」と表示。
それ以外は、メッセージボックスで「OK」と表示プログラムを作っています。
※これは、テキストボックスに数値を入力して、改行を押した際に、毎回OK・NG判定を
して表示する
今下記のように作っているのですが、苦戦しているのは、数値を入力して改行したときに
毎回メッセージボックスが出ず、エラーが出てしまいます。
下記プログラム文をどのように変更すれば、数値を入力して改行したときに毎回上記のよ
うな判定できるようになるかご教示頂けませんでしょうか？
みなさん教えてください。よろしくお願いします。
Private Sub Command1_Click()
Dim moji As String
moji = txtInputData.Text
If moji > 10 Then
Msgbox "NG"
Else
Msgbox "OK"
End If
End Sub
VB6でプログラムについて、みなさんアドバイスをいただけませんでしょうか？
現在、下記のような動作をするプログラムを作っていていますがうまくいきません。
テキストボックスに1～100までの数値を400個入力します。
ボタンを押してこのテキストボックスヘ数値を入力したとき、入力した数値が10未満の
場合はメッセージボックスで「NG」と表示。
それ以外は、メッセージボックスで「OK」と表示プログラムを作っています。
※これは、テキストボックスに数値を入力して、改行を押した際に、毎回OK・NG判定を
して表示する
今下記のように作っているのですが、苦戦しているのは、数値を入力して改行したときに
毎回メッセージボックスが出ず、エラーが出てしまいます。
下記プログラム文をどのように変更すれば、数値を入力して改行したときに毎回上記のよ
うな判定できるようになるかご教示頂けませんでしょうか？
みなさん教えてください。よろしくお願いします。
Private Sub Command1_Click()
Dim moji As String
moji = txtInputData.Text
If moji > 10 Then
Msgbox "NG"
Else
Msgbox "OK"
End If
End Sub
