查看: 1584|回复: 30
|
有关excel的问题
[复制链接]
|
|
各位大大,请问能将excel的资料搬去acess吗?
如果能,应该怎样做呢?谢谢 |
|
|
|
|
|
|
|
发表于 19-5-2006 09:22 PM
|
显示全部楼层
|
|
|
|
|
|
|
楼主 |
发表于 19-5-2006 10:00 PM
|
显示全部楼层
我想要从excel搬过去!!能用里面的code吗?
我不会啊 |
|
|
|
|
|
|
|
发表于 21-5-2006 12:56 AM
|
显示全部楼层
|
|
|
|
|
|
|
楼主 |
发表于 21-5-2006 03:20 PM
|
显示全部楼层
哈哈!我对VB不懂哦!
能不能用简单点的语言呢? |
|
|
|
|
|
|
|
发表于 21-5-2006 11:41 PM
|
显示全部楼层
你先至少看看那文章吧. 不懂的话再来问咯... |
|
|
|
|
|
|
|
发表于 22-5-2006 02:14 PM
|
显示全部楼层
excel 有"convert to ms access" 的功能
但它是add-ins,必须去tools->add-ins里加入 |
|
|
|
|
|
|
|
楼主 |
发表于 22-5-2006 08:02 PM
|
显示全部楼层
原帖由 eek! 于 22-5-2006 02:14 PM 发表
excel 有"convert to ms access" 的功能
但它是add-ins,必须去tools->add-ins里加入
但我找不到也!!!
|
|
|
|
|
|
|
|
发表于 23-5-2006 12:21 AM
|
显示全部楼层
跟着以下的方法...
File -> Get External Data -> Import -> .... 从这里自己应该可以继续了... |
|
|
|
|
|
|
|
发表于 23-5-2006 01:16 PM
|
显示全部楼层
你有先去tools>add-ins加入access link 的功能了吗? |
|
|
|
|
|
|
|
楼主 |
发表于 23-5-2006 03:54 PM
|
显示全部楼层
原帖由 eek! 于 23-5-2006 01:16 PM 发表
你有先去tools>add-ins加入access link 的功能了吗?
我找不到access link啊 |
|
|
|
|
|
|
|
楼主 |
发表于 25-5-2006 07:30 PM
|
显示全部楼层
没人回答吗?我真的很需要阿 |
|
|
|
|
|
|
|
发表于 26-5-2006 12:01 AM
|
显示全部楼层
这是我用过的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 |
|
|
|
|
|
|
|
发表于 26-5-2006 09:10 AM
|
显示全部楼层
原帖由 kbchong 于 25-5-2006 07:30 PM 发表
没人回答吗?我真的很需要阿
我的方法你尝试过了吗? |
|
|
|
|
|
|
|
楼主 |
发表于 27-5-2006 02:02 AM
|
显示全部楼层
原帖由 goatstudio 于 26-5-2006 09:10 AM 发表
我的方法你尝试过了吗?
可是我要的是从excel里直接convert去acess哦!!
|
|
|
|
|
|
|
|
发表于 27-5-2006 10:35 AM
|
显示全部楼层
我的方法呢?可以用吗? any question... come back to me |
|
|
|
|
|
|
|
楼主 |
发表于 27-5-2006 10:52 AM
|
显示全部楼层
原帖由 joe216 于 27-5-2006 10:35 AM 发表
我的方法呢?可以用吗? any question... come back to me
我是新手啦!
那么复杂我看不懂,能解释吗? |
|
|
|
|
|
|
|
发表于 27-5-2006 12:10 PM
|
显示全部楼层
|
|
|
|
|
|
|
楼主 |
发表于 27-5-2006 03:27 PM
|
显示全部楼层
|
|
|
|
|
|
|
楼主 |
发表于 27-5-2006 03:30 PM
|
显示全部楼层
原帖由 goatstudio 于 26-5-2006 09:10 AM 发表
我的方法你尝试过了吗?
嗯,但过程能简化点吗?
我的意思是一按钮就能convert了。
不管怎样谢谢goatstudio。
我还很新,请多多指教 |
|
|
|
|
|
|
| |
本周最热论坛帖子
|