於vb中如何使.xls增一筆資料存檔

yangjie

就教於各位大大:
個人曾受KeeKing指導之下，寫了form之VB
可以查詢卻無法增一筆資料，應如何處理？
Dim Book As Object
Dim Book1 As Object
Dim n
Private Sub Command1_Click()
    Unload Me
End Sub
Private Sub Form_Initialize()
    Dim fso, F As Object, Box, Tile$
    Tile = "檔案路徑名稱"
    On Error GoTo ER
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set F = fso.GetFile("登錄.xls")
        n = fso.GetParentFolderName(F.Path)
    Set Book = CreateObject(n & "\登錄.xls")
    Set Book1 = Book.sheets("學生資料")
    For I = 1 To 6
        Me.Controls("Label" & I).Caption = Book1.cells(1, I)
    Next
    Text1 = ""
    Exit Sub
ER:
    Set fs = CreateObject("Scripting.FileSystemObject")
    Box = InputBox(Tile, Tile)
    If Box = "" Then End
    If fs.FileExists(Box) Then
        Set Book = CreateObject(Box)
    Else
        GoTo ER
    End If
    Err.Clear
    Resume Next
End Sub

Private Sub Text1_Change()
    Dim Rng As Object, E, I%, C&
     C = Book1.range("a1").End(4).Row
    For Each E In Book1.range("a2:a" & C)
        If E = Text1 Then Set Rng = E: Exit For
    Next
    If Not Rng Is Nothing Then
        Book1.cells(C + 1, 1) = Text1
        For I = 1 To 5
            Me.Controls("Label" & I + 6).Caption = Rng.cells(1, I + 1)
            Book1.cells(C + 1, I + 1) = Rng.cells(1, I + 1)    '嘗試增加一筆資料，除非自行另外開.xls才會寫入
        Next
    Else
        For I = 1 To 5
            Me.Controls("Label" & I + 6).Caption = ""
        Next
    End If
   
End Sub

Hsieh

回復 1# yangjie
VB操作EXCEL
建議以EXCEL檔為資料庫
做資料庫查詢，寫入

yangjie

謝謝Hsieh版主
以EXCEL檔為資料庫做資料庫查詢，寫入
又如何下語法，可否賜教！
Set Book = CreateObject(n "\登錄.xls")
與connection 是乎產生重複開檔錯誤
應如何下手，懇請賜教

Hsieh

回復 3# yangjie


    http://forum.twbts.com/viewthread.php?tid=712&extra=page%3D1

GBKEE

回復 1# yangjie
要做存檔

1. Private Sub Command1_Click()
   
2.     Book1.Parent.Save
   
3.     Unload Me
   
4. End Sub

複製代碼

yangjie

感謝GBKee。
可Save了，只是對Excel變成視窗隱藏，可否在VB下對.xls下指令使visible=true-----問題一。
並請教版主:網頁連結VB製程的.exe 由.exe去指定"Excel Application"開.xls(含VBA)，此時終端機可執行否?
(於PC下可執行沒問題)(這篇不知如何附上附件，可能是小學生的關係)

GBKEE

回復 6# yangjie
可否在VB下對.xls下指令使visible=true
VB 我不太熟  VBA是VB的延伸 應該很相近 如下我試了可以用的
Set Book = CreateObject(n "\登錄.xls")
    With Book.Parent
        .Visible = True
        .windows("登錄.xls").Visible = True
    End With
網頁連結VB製程的.exe 由.exe去指定"Excel Application"開.xls(含VBA)，此時終端機可執行否?
我功力不夠 尚需高手來解答

yangjie

非常感謝GBKee。