サンプル投稿用掲示板 VB2005 〜 用トップページ VB6.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
 |
