有关excel的问题

kbchong

各位大大，请问能将excel的资料搬去acess吗？
如果能，应该怎样做呢？谢谢

goatstudio

原帖由 kbchong 于 19-5-2006 09:02 PM 发表
各位大大，请问能将excel的资料搬去acess吗？
如果能，应该怎样做呢？谢谢

access 里有个功能能自动把 excel 拿输入进来, 找找看, 很明显.

kbchong

我想要从excel搬过去！！能用里面的code吗？
我不会啊

goatstudio

原帖由 kbchong 于 19-5-2006 10:00 PM 发表
我想要从excel搬过去！！能用里面的code吗？
我不会啊

从 excel 搬过去, 和从 Access 里把 excel 搬进去有什么分别呢?
不过, 如果你坚持要从 Excel 里搬过去... 你要开始学习写 VBA 的 code.
看这里: http://www.exceltip.com/st/Expor ... soft_Excel/425.html

kbchong

哈哈！我对VB不懂哦！


能不能用简单点的语言呢？

goatstudio

你先至少看看那文章吧. 不懂的话再来问咯...

eek!

excel 有"convert to ms access" 的功能
但它是add-ins，必须去tools->add-ins里加入

kbchong

原帖由 eek! 于 22-5-2006 02:14 PM 发表
excel 有"convert to ms access" 的功能
但它是add-ins，必须去tools->add-ins里加入

但我找不到也！！！

goatstudio

跟着以下的方法...

File -> Get External Data -> Import -> .... 从这里自己应该可以继续了...

eek!

你有先去tools>add-ins加入access link 的功能了吗？

kbchong

原帖由 eek! 于 23-5-2006 01:16 PM 发表
你有先去tools>add-ins加入access link 的功能了吗？

我找不到access link啊

kbchong

没人回答吗？我真的很需要阿

这是我用过的code, 希望可以帮忙你

Sub CreateAndInsertIntoTable()

    Dim tbl As New Table
    Dim cat As New ADOX.Catalog
    Dim cn As New ADODB.Connection
    Dim rec As New ADODB.Recordset
    Dim fld As ADODB.Field
    Dim recNew As New ADODB.Recordset
    Dim strExcelPath As String
    Dim intcnt As Long
   
    strExcelPath = App.Path & "\HR.xls"  'Excel File Path

    cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.3.51;" & _
                           "Data Source=" & App.Path & "\HR.MDB"
   
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" _
    & "Data Source= " & strExcelPath & ";Extended Properties=Excel 8.0;" _
    & "Persist Security Info=False"
   
    rec.Open "Select * from [Sheet1$]", cn, adOpenKeyset
        
   
    If cat.Tables.Count <> 4 Then cat.Tables.Delete "tblStaff"   'To delete If "tblStaff" Table is already there
   

    'Creating Table
    tbl.Name = "tblStaff"
    'Appending Column-The Col Name will be the Column name from the Sheet
    For Each fld In rec.Fields
        tbl.Columns.Append fld.Name, adChar, 200
    Next
    'Creating Table using Catalog Object of ADOX
    cat.Tables.Append tbl
    'Opening the Newly created table in Test.MDB
    recNew.Open "tblStaff", cat.ActiveConnection, adOpenKeyset, adLockOptimistic

    'Making Pg Bar Visible and Start Loading
    ProgressBar1.Visible = True
    'Setting Max value of Pg BAr as No of Records in the Sheet
    If rec.RecordCount <> 0 Then
        ProgressBar1.Max = rec.RecordCount
    End If
    'Initialising Counter
    intcnt = 1
    Do Until rec.EOF
        'Calling DoEvents so as to see the counter correctly
        DoEvents
        With recNew
             .AddNew
            For Each fld In rec.Fields
                'Assigning value to the recNew Recordset for Insertion
                .Fields(fld.Name) = IIf(IsNull(rec(fld.Name)), "", rec(fld.Name))
            Next
            .Update
        End With
        'Assigning Value to PgBar Control
        ProgressBar1.Value = intcnt
        'Assigning Value to Label Control
        lblStatus.Caption = "Added " & intcnt & " Records..."
        'Incrementing Counter
        intcnt = intcnt + 1
        'Moving to Next Record
        rec.MoveNext
    Loop
        DoEvents

        'Showing the msgbox of finish uploaded
        lblStatus.Caption = "Your Data Already Uploaded"
        ProgressBar1.Visible = False
End Sub

goatstudio

原帖由 kbchong 于 25-5-2006 07:30 PM 发表
没人回答吗？我真的很需要阿

我的方法你尝试过了吗?

kbchong

原帖由 goatstudio 于 26-5-2006 09:10 AM 发表


我的方法你尝试过了吗?

可是我要的是从excel里直接convert去acess哦！！

我的方法呢？可以用吗? any question... come back to me

kbchong

原帖由 joe216 于 27-5-2006 10:35 AM 发表
我的方法呢？可以用吗? any question... come back to me

我是新手啦！

那么复杂我看不懂，能解释吗？

别忘了开 reference Microsoft Excel *11.0 Object Library 和 Visual Basic for application.

你哪里开始不明白？
别动也没动就说难。。。:@ 我也用了一点时间想的

加油喔！！！

*depend to what version u are using

kbchong

原帖由 joe216 于 27-5-2006 12:10 PM 发表
别忘了开 reference Microsoft Excel *11.0 Object Library 和 Visual Basic for application.

你哪里开始不明白？
别动也没动就说难。。。:@ 我也用了一点时间想的

加油喔！！！

*depen ...

我会认真学的
我是不是要加command button？
还是它会自动convert去access!!

kbchong

原帖由 goatstudio 于 26-5-2006 09:10 AM 发表


我的方法你尝试过了吗?

嗯，但过程能简化点吗？
我的意思是一按钮就能convert了。
不管怎样谢谢goatstudio。
我还很新，请多多指教