| 投稿日 | ： 2003/01/24(Fri) 12:49 |
| 投稿者 | ： dai |
| Ｅメール | ： dee_bassist@hotmail.com |
| ＵＲＬ | ： http://support.microsoft.com/default.aspx?scid |
| タイトル | ： Re^4: 質問！エクセルデータをMSFlexGrid上に |
IMEX=1 が必要でした。
http://support.microsoft.com/default.aspx?scid=KB;EN-US;Q194124
Dim Db As Database
Dim Rs As Recordset
Private Sub Command1_Click()
Set Rs = Db.OpenRecordset("Sheet1$")
Do While Not Rs.EOF
Debug.Print Rs(0)
Rs.MoveNext
Loop
End Sub
Private Sub Form_Load()
Set Db = OpenDatabase("C:\Temp\Book1.xls", _
False, True, "Excel 8.0; HDR=NO;IMEX=1") '上記URLのココを修正
End Sub
Private Sub Form_Unload(Cancel As Integer)
Db.Close
Set Db = Nothing
End Sub