VBレスキュー(花ちゃん) - VBレスキュー(花ちゃん)の投稿サンプル用掲示板

　　　　　サンプル投稿用掲示板　　 VB2005 ～用トップページ　　 VB6.0 用トップページ

Excelを開かずにデータを書き込み(VB6.0) ( No.0 ) 　[親スレッドへ]

日時： 2007/07/15 21:15
名前： 花ちゃん: ***********************************************************************************
* カテゴリー：[エクセル][データベース][]                                          *
* キーワード：エクセル,データベース,,,,                                           *
***********************************************************************************

---------------------------------------------------------------------------------------
No.5308 RE：Excelを開かずにデータを書き込み　　　投稿者：Say [2002/07/18(木)20：39分]
---------------------------------------------------------------------------------------

>１．Excelの機能を利用せずに（Excelを使わずに)と言う事ですか？

>１．なら出来ませんし、なぜそのような事をしなければならないのでしょうか

実はできます。(制限はありますが・・・。)

たとえばこんなかんじ
(C直下にTest1.xlsを用意し、Sheet1に

   |  A  |  B   |
----------------
1  | ID  | NAME |
2  | 1   | AAA  |
3  | 2   | BBB  |
4  | 3   | CCC  |

というデータを入れておいてください。)

Option Explicit

Private Sub Command1_Click()
    Dim dbs As DAO.Database
    Dim strSQL As String
    Set dbs = Workspaces(0).OpenDatabase("c:\Test1.xls", _
    False, False, "Excel 8.0;")
    strSQL = "INSERT INTO [Sheet1$] ([ID],[NAME]) VALUES(4,""DDDD"")"
    dbs.Execute strSQL
    dbs.Close
    Set dbs = Nothing
    MsgBox "end"
End Sub