求助，不能导入中文名称的sheet

laocu88 · 发表于 2010-12-1 16:31:01

计划是用下面这个实例进行指定的工作薄导入，但是这个例子中好像只能导入“sheet1、sheet2”这样的工作薄名称，中文名称的工作薄不能导入

另外，这个例子是update数据到表里的，如果想insert数据到表里，怎么改？请大侠帮忙了！！！谢谢！！！！

laocu88 · 发表于 2010-12-8 13:52:04

自己顶起来

laocu88 · 发表于 2010-12-2 09:33:13

例子里就是加了[] 和$啊

Private Sub sheet_Click()
1017 Dim newt As ADOX.Table
1018 Set newt = newx.Tables(Me![sheet] & "$") '取得工作表
1019 For k = 0 To newt.Columns.Count - 1 '取得字段名
1020 d = d & ";" & newt.Columns(k).Name
1021 Next
1022 d = Right(d, Len(d) - 1)
1023 Me![daoru_sub].Form![EXC_titel].RowSource = d
1024 Me![daoru_sub].Form![EXC_titel].Requery

睡看风云 · 发表于 2010-12-1 23:53:33

学习,学习

roych · 发表于 2010-12-1 21:16:42

如果是每天都更新的话，建议用链接表形式，再追加到其他表中。

todaynew · 发表于 2010-12-1 18:46:37

好像还要加$符号

ui · 发表于 2010-12-1 16:34:48

将工作薄名称前后加 [ ]

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[ActiveX] 求助，不能导入中文名称的sheet

本帖子中包含更多资源

群介绍
主题无相 (随机显示版	同地区群块其他地区)