投稿日 | : 2003/01/19(Sun) 21:12 |
投稿者 | : 花ちゃん |
Eメール | : |
URL | : |
タイトル | : Re: エクセルデータをMSFlexGrid上に |
*.Xls ファイルをMSFlexGrid に表示するだけなら下記のような方法もあります。
Private Sub Command1_Click()
'参照設定でMicrosoft DAO 3.6 Object Library にチェックを
'入れておいて下さい。
'フォームにMSFlexGridコントロールとデータコントロールを貼り付け
'デザイン時に下記プロパテイをセットしておいて下さい
'MSFlexGrid1.DataSource = Data1
'Data1.Visible = False
Dim DB As Database
Dim RS As Recordset
Dim FileName As String
'読込用のExcelファイル
FileName = App.Path & "\sample.xls"
'ファイルをオープン(HDR=NO で項目を読込まない)
Set DB = OpenDatabase(FileName, False, False, "Excel 8.0;HDR=YES;")
'テーブルの内容を格納(Sheet1 = Excelのシート名)
Set RS = DB.OpenRecordset("Sheet1$", dbOpenTable)
'MSFlexGridと連結
Set Data1.Recordset = RS
Data1.Refresh
RS.Close
DB.Close
Set RS = Nothing
Set DB = Nothing
End Sub
CSV形式で保存した日付データ読込む場合、文字列として読込めば問題なく表示されます。
# マルチポストはマナー違反です。マナー違反は初心者といっても許されるものではありません。
インターネット上のマナーについてご存知なければ ネチケット で検索して勉強しておいて下さい。
又、解決報告・レスに対する返信等は書き込んだすべての掲示板に報告して下さい。