将指定工作表区域导入access

XZ19860527

如题,现有代码如下:

1. Sub temp1()
   
2. Dim str, sql As String
   
3. str = ThisWorkbook.Path '路径
   
4. If TableIsIn("TEMP1") = True Then funComan "drop table TEMP1", str & "\cdsales.mdb" '删除TEMP
   
5. r = Sheet1.[a65536].End(xlUp).Row
   
6. sql = "insert into TEMP1 select * from [EXCEL 8.0;DATABASE=" & str & ".xls;].[账龄主界面$!a5:f" & r & "]"
   
7. Debug.Print sql
   
8. funComan sql, str & "\cdsales.mdb"
   
9. End Sub

复制代码

其中 .[账龄主界面$!a5:f" & r & "] 部分运行提示错误, 账龄主界面$!a5:f43 不是一个有效名称,该如何改正?
代码在模块2


应收账款管理.zip (294 KB, 下载次数: 282)

2015-3-17 15:29 上传

点击文件名下载附件

feiren228

sql = "insert into TEMP1 select * from [EXCEL 8.0;DATABASE=" & str & ".xls;].[账龄主界面$!a5:f" & r & "]"

把红色的去掉试试

XZ19860527

feiren228 发表于 2015-3-17 15:34
sql = "insert into TEMP1 select * from [EXCEL 8.0;DATABASE=" & str & ".xls;].[账龄主界面$!a5:f" & r  ...

去掉! 提示找不到对象.

zhaogang1960

请参考:

1. Sub temp1()
   
2.     Dim cnn As Object, SQL$
   
3.     Set cnn = CreateObject("ADODB.Connection")
   
4.     cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & "\cdsales.mdb"  '连接数据库
   
5.     SQL = "INSERT INTO TEMP1 SELECT f1 as 字段1,f2 as 字段2,f3 as 字段3,f4 as 字段4,f5 as 字段5,f6 as 字段6 from [Excel 8.0;hdr=no;Database=" _
   
6.         & ThisWorkbook.FullName & ";].[账龄主界面$a5:f" & Sheet1.[a65536].End(xlUp).Row & "]"
   
7.     cnn.Execute SQL
   
8.     MsgBox "纪录添加成功。", vbInformation, "添加纪录"
   
9.     cnn.Close
   
10.     Set cnn = Nothing
    
11. End Sub
    

复制代码

zhaogang1960

代码需要审核，看图片吧：

XZ19860527

zhaogang1960 发表于 2015-3-17 16:24
请参考:

万分感谢赵老师.能否点评下为什么我原来的代码无法通过呢

zhaogang1960

XZ19860527 发表于 2015-3-17 16:56
万分感谢赵老师.能否点评下为什么我原来的代码无法通过呢

数据表与工作表的字段应该一一对应，如果不一致，则需要使用别名实现

XZ19860527

zhaogang1960 发表于 2015-3-17 17:34
数据表与工作表的字段应该一一对应，如果不一致，则需要使用别名实现

恩,后来我也考虑到了.

我愿意是若TEMP1存在则删除之,选取数据后存入新表并命名为TEMP1. 这在求余额的时候实现了,但是在这个上没找到咋办.学习中.

目前是通过嗅探TEMP1中是否存在数据,如有则清除来实现表的固定跟新.

谢谢赵老师!

XZ19860527

zhaogang1960 发表于 2015-3-17 17:34
数据表与工作表的字段应该一一对应，如果不一致，则需要使用别名实现

另外,如果不经过将excel数据存入access,直接调用行么.

1. Sub t1()
   
2.     Dim str, sql As String
   
3.     Dim rs As New ADODB.Recordset
   
4.     str = ThisWorkbook.Path '路径
   
5.     sql = "Select b.分类,a.客户,a.期初,a.发货,a.收款,a.折扣/运费,a.余额 " _
   
6.         & "from [Excel 8.0;hdr=no;Database=" & ThisWorkbook.FullName & ";].[账龄主界面$a4:f" & Sheet1.[a65536].End(xlUp).Row & "] a " _
   
7.         & "left join class b on a.客户 = b.客户"
   
8.     Debug.Print sql
   
9.     Set rs = funRst(sql, str & "\cdsales.mdb")
   
10.         With Sheet2
    
11.         .Activate
    
12.         .Cells.Clear
    
13.        .[a4].CopyFromRecordset rs
    
14.        End With
    
15. End Sub

复制代码

此代码提示参数没有指定.
分步我已经实现了处理.

zhaogang1960

XZ19860527 发表于 2015-3-18 09:32
另外,如果不经过将excel数据存入access,直接调用行么.此代码提示参数没有指定.
分步我已经实现了处理.

hdr=no表示第一行不是标题，返回字段名应该是f1、f2……