tagCANDY CGI VBレスキュー(花ちゃん) - Excelを開かずにデータを書き込み(VB6.0) - Visual Basic 6.0 VB2005 VB2010
VB2005用トップページへVBレスキュー(花ちゃん)のトップページVB6.0用のトップページ
Excelを開かずにデータを書き込み(VB6.0)
元に戻る スレッド一覧へ 記事閲覧
このページ内の検索ができます。(AND 検索や OR 検索のような複数のキーワードによる検索はできません。)

Excelを開かずにデータを書き込み(VB6.0) [No.32の個別表示]
     サンプル投稿用掲示板  VB2005 〜 用トップページ  VB6.0 用 トップページ
日時: 2007/07/15 21:15
名前: 花ちゃん

***********************************************************************************
* カテゴリー:[エクセル][データベース][]                                          *
* キーワード:エクセル,データベース,,,,                                           *
***********************************************************************************

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

>1.Excelの機能を利用せずに(Excelを使わずに)と言う事ですか?

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


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

たとえばこんなかんじ
(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

メンテ

Page: 1 |

 投稿フォーム               スレッド一覧へ
題  名 スレッドをトップへソート
名  前
パスワード (記事メンテ時に使用)
投稿キー (投稿時 投稿キー を入力してください)
コメント

   クッキー保存   
スレッド一覧へ