说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

VB如何將 Excel 的文件导入 Access文件?

HTML文档下载 WORD文档下载 PDF文档下载
VB如何將 Excel 的文件导入 Access文件?


下面我已將程序代码做成模块,只要导入必要之参数即可!

此一模块共有四个参数:
1、sSheetName:要导出资料的文件名称 (Sheet name),例如 Sheet1
2、sExcelPath:要导出资料的 Excel 档案路径名称 (Workbook path),例如 C:\book1.xls
3、sAccessTable:要导入的 Access Table 名称,例如 TestTable
4、sAccessDBPath:要导入的 Access 档案路径名称,例如 C:\Test.mdb

在声明中加入以下:

Private Sub ExportExcelSheetToAccess(sSheetName As String, _
sExcelPath As String, sAccessTable As String, sAccessDBPath As String)
Dim db As Database
Dim rs As Recordset
Set db = OpenDatabase(sExcelPath, True, False, "Excel 5.0")
Call db.Execute("Select * into [;database=" & sAccessDBPath & "]." & _
sAccessTable & " FROM [" & sSheetName & "$]")
MsgBox "Table exported successfully.", vbInformation, "Yams"
End Sub
使用范例如下:將 C:\book1.xls 中的 Sheet1 导入 C:\Test.mdb 成为 TestTable

ExportExcelSheetToAccess "Sheet1", "C:\book1.xls", "TestTable", "C:\Test.mdb"


一个开源工作者对开源与赚钱的一些想法 宏碁:Windows8仍不成功 Chrome表现令人意外 雅虎发布Q4财报 净利润同比下滑8% 游戏机禁售令起风波,索尼任天堂股价大涨 国外开发者吐槽Facebook Android设计一例 Rovio转向发行业务 将发布新作Tiny Thief 上山下海 “硬汉”服务器无所不能 访金山云CTO杨刚:开源改进PK自主研发,技术驱动前行 苹果涉及色情问题,且进一步恶化 开源产品系列:面向组件的Web框架tapestry 360指责百度窃取用户信息 公布美杜莎插件技术分析 苹果正式发布iOS 6.1 最快本周日即可越狱 苹果高管:运行iOS 6的设备达3亿 Chrome OS 黑客大赛总奖金为314.159万美元 微软雷德蒙研究院副总裁:从计算研究到惊人发明 还驾驭不了4核? 别人已模拟出百万核心上的并行 RIM将网络直播BlackBerry 10发布会 解读TDD的五大误区 Amazon 2012财年Q4财报:电子书业务增长70% 从暴风影音CTO到创业者:画中画相机话中话 为什么Android应用开发总要比iOS晚? 传奇VC马克.安德雷森:未来的企业什么样? 呼吁国会通过“创业签证”:奥巴马助力美国招揽海外人才 Surface Pro最低1019美元,价值究竟如何? 搜狗号码通产品经理谈微创新 数据和运营更关键 在线推荐系统是如何进行工作的? 欧朋浏览器上架App Store,iOS生态真要变天? 苹果iOS 6.1地图搜索API将替代谷歌Places Oracle向开发者承诺 称尽快修复Java安全问题 日本:开发者与投资人都不容忽视的移动市场 Unity 3D引擎:十大最火的插件推荐 求救高手?active dll的Ftp上传组件的问题?(100) TQuery返回的字段类型信息如何区分numeric还是float? 我感觉VC里最神秘的几块内容(至今也没搞懂) 在这里混了有段日子了 升星 散分!!(请版主别删) 欢迎大家加入我建的QQ群 请问一下各位是如何调用第三方的DLL。例如:华为DLL.清华深资DLL。等等。。。 QRBand能否自动换页的问题。 请问有哪位 有ACCP的的全套资料第一学期第一学年 资料 一个关treeview的问题 sql server有没有办法看一个image类型值是否有无? 嵌入到outlook控件的问题 一个奇怪的问题: 怎么老打不开数据库set db= new notesdatabase("","data.nsf")??? 如何调用DLL啊? JSP怎么样调用sessionbean? 如何在Cell单元格显示数据库中已image类型存放的图片?(急) php有什么好办法把mysql里面枚举型字段的各个项目读出来? easy problem 文件问题 在线等候 北京掌中仙境技术有限公司招聘程序开发人员 请问win2003中如何起用3d? 关于迭代开发模式 主菜单的字体怎么修改? C#中自动生成SQL语句(update,delete)是否并不怎么好呢? 关于在VC中开发数据库使用ORACLE的若干问题?(SQL SERVER 到 ORACLE转换的问题) 如果更新有外键约束的主键呢? 谁有播放*.dat的asp组件啊!~ 这是一个控件源码,为什么只有在运行时,才能显示控件的图形,请指教! 电脑一进系统就待机……sos 浅谈视图(Views) 本人急需自然景物的分形源程序(最好包括山水树),急!可加分 高分求免费电影下载网站,最好是一些提供最新电影的网站 请教axis的开始的安装配置问题,谢谢~ 如何用ASP实现往已经建好的表中添加新的字段? TQuery返回的字段类型信息如何区分numeric还是float? 为什么弹出来的菜单偏离我的点的位置很远? 高手请进!!! 用sqlDataAdapter自动产生的update,delete语句是否最优? 小问题,50分,我的CRichEditCtrl继承类为什么在输入汉字时不触发 WM_CHAR 消息!! 100分,如何将一个类实例存入数据库,并取回? JavaScript问题,请大家帮忙。 急,急,急!如何做一个循环让程序延迟3秒执行? 有意思的问题,请高手指教!(100*x) 如何根据条件来得到DataGrid需要显示的列!!! php运行环境配置 CSDN怎么总出错啊?ft... 有一事不解,进来看看吧,up有分 菜鸟提问:DOM中如何load一个.xml文件 mssql2000的jdbc驱动是否不支持PreparedStatement HELP!!! 无论打开任户文件夹,都提示WAS VIRUS!!!DESTORYED Rose 菜鸟的傻问题 谁用MSChart做过曲线图??急用!! 醉里吴音相媚好的醉里是什么意思? 怎么写《妈妈的味道》这篇作文?麻烦帮忙写个开头和结尾 还有帮我选几个典型事例 “国破山河在,城春草木深.”中,“破”和“深”字体现了诗人怎样的思想感情? 醉里吴音相媚好的 相媚好啥意思 作文《妈妈的味道》 用world造句,随便加上音标 醉里吴音相媚好中的相媚好是什么意思? 效应细胞能杀死靶细胞细胞毒性T细胞能杀死靶细胞吗 类似自相矛盾的成语越多越好 三角形ABC中角A.B.C所对的边分别为a.b.c,已知cosC=-1/4.1求sinC的值 2当a=2,2sinA=sinC时,求b及c的长 根据《鹿和狼的故事》给凯巴森林设计一块警示牌 要小学水平的 50字左右 see the world造句 生男生女决定于夫妇中的丈夫,因为男性能产生x、y两种,女性只产生具有x染色体的一种卵细胞.这句话是对是错额...到底是对的还是错的!我都蒙了! 醉里吴音相媚好的意思是什么? 现在有人想在凯巴伯森林入口处竖一块警示牌,你认为该在上面写些什么? 关于专利权的判断题,专利权人的权利不包括专利权人为发明人,设计人时表明自己发明人,设计人.是对是错?答案给的是该说法正确.但是不太明白.这句话该怎么理解?专利权人是发明人或设计 在△ABC中,角A,B,C成等差数列,求2sinA-sinC的取值范围 贝壳炒着吃怎么弄啊? 为什么生理盐水可以可减轻硝酸银腐蚀性 在△ABC中,三内角A、B、C成等差数列,且关于x的方程x^2sinA+2xsinB+sinC=0有两相等实根,则角A=?角C=?60°,60°. 贝壳怎么炒 在HCl气体溶于水后水的体积不变的情况下,如何计算30%盐酸的密度如果是那样的化任何浓度为30%的溶液密度都是一样的了? 吭的两个读音 怎么炒贝壳?我买了贝壳 怎么炒 30%盐酸密度是多少? 爷爷冷得吭吭地咳的吭的读音 油漆工的徒弟叫啥?(急转弯) 我用4017做了一个双稳态电路,它会受到220V交流电影响的?我做了这个双稳态电路,不知什么原因?家里的电灯开或关都经常到它的不稳定, “醉里吴音相媚好,白发谁家翁媪? 请教一道电路习题,第32题 用IC4017做的指示流水灯12脚要不要接电路. T,B细胞阴性阳性选择的概念及意义 电路图练习题 如何用CD4017做一个四分频电路? 我知道效应T(B)细胞是T(B)细胞的进一步.可我想问.T(B)细胞和T(B)淋巴细胞是同一个含义吗?还是在造血干细胞流入胸腺时是T细胞.然后再慢慢成熟为T淋巴细胞 动物的皮下脂肪影响动物体表的散热吗? 1、If you don't like what he said,just r______.2、Although they are twins,they behave d_______.3、Two days later,the meat went bad and it produced an unpleasant s__________. 细胞的定义是什么? 关于句子的理解(急需答案)原句:1、把自己当作别人2、把别人当作自己3、把别人当作别人4、把自己当作自己理解:1、待人处事不能总是以自我为中心,要多为他人着想:从他人的角度、 《了不起的盖茨比》(The great gatsby )英文精校版 TXT附件即可英文精校就行 什么格式都可以 谢 在三角形ABC中,a,b,c分别对应角A,B,C的对边,C=2A,sinC=3/2sinA(1)求sinA,sinC的值(2)若ac=24,求边b的长 加急! 理解:他把他的大提包扔在一边,怀里紧紧地抱着一只纸箱子. quickshe doesn't come to the party today ,she _____busyA,maybe B,may be C.must D.may -----What do you think of the Prime Minister's speech to the nation?1.---What do you think of the Prime Minister's speech to the nation?---I like ____of what he said.A more B many C few D muchWHY2.He asked several questions____the professor who g 什么动物不长毛 第30题快! BE QUICK! 醉里吴音的吴音指的是哪里的语言 动物和人为什么会长毛,为什么鱼类不能? quick!What does it feel like( ) hiking ( ) fine weather?A going; in soB to go; in such a C going; on so D to go ;in such(不是“feel like doing sth ”,)You haven't forgotten to pay him,have you?-____,but I'll remember _____ him tomorrow.A yes,payi 某企业在第1年初购买一台价值为120万元的设备M,M的价值在使用过程中逐年减少.从第2年到第6年,每年初M的(Ⅰ)求第n年初M的价值an的表达式;(Ⅱ)设 ,若An大于80万元,则M继续使用,否则须 为什么人不像动物一样浑身长毛人类和其他动物一样需要抵御寒冷,为什么人的毛退化了呢 一道初二英语题,关于反意疑问句的(quick~~)You are never too young to start doing things,( ) ( )? 湖南某高新区引进一高科技企业,投入资金720万元建设基本设施,第一年运营费用120万元,以后每年增加40...湖南某高新区引进一高科技企业,投入资金720万元建设基本设施,第一年运营费用120万元 动物冬天是怎样过冬的 请问碳化的木头和竹子,在干燥的状态下导电吗? X是2与8的等差中项,则X与5的等比中项是? 300mm长50mm宽的预留孔灌浆深度不能超过多少? 竹醋液真的是竹子炭化过程中得到的液体吗?它是不是有多少纯度的?怎样的竹醋液才是好的? 高二数学必修五等差等比数列 珍珠对于贝壳(蚌)的生理意义?这里不是问珍珠的形成原理哦, 巴沙尔强调政治方案能否成功取决于停止埃及临时总统访问阿联酋宁国领导慰问老人照片系合成 官员“悬宁国就PS照事件致歉 称官员慰问老人伦敦股市30日收盘基本持平纽交所黄金期货市场30日交投最活跃的中储粮回应转基因油入国储库:不具备检北京匿名社会监督员:提20多条意见从多名俄罗斯高官因瞒报收入被免职中国就欧盟对华紧固件反倾销措施案的执北京10单位仅1公开社会监督员信息 北京重污染天机动车单双号限行 电动汽美国联邦储备委员会宣布维持现有宽松货中国在联合国大会全票连任联合国经社理俄罗斯百年兵工厂爆炸致两人死亡中组部发布新规:党政干部企业兼职不得联合国人口基金会2013报告:面对青德媒称北京上海等城市被美列入监听 韩莫言出任网络文学大学名誉校长 曾决心北京最牛违建拆除停近1月 同楼居民纷李某某再换律师二审推迟 新律师称重新泥浆足球北京开赛永恒的庞贝红《雷锋》杂志在京创刊美国航天局宣布发现迄今最像地球的系外开展“四进四信”教育 提高立德树人水“四进四信”是教学“提升”的必要环节纪录片《军工记忆》即将在央视播出“心起点”先天性心脏病 儿童救助行动习近平致全国青联十二届全委会和全国学芬兰貂熊糖尿病患者控制饮食并非饥饿疗法北京清华长庚医院治疗腰椎间盘突出不再太行山与八路军华北抗战“共和国部长与全国青联委员面对面”活大病保险今年内将覆盖所有城乡居民为基层治理提供支撑主流媒体慎“卖萌”毛姆的理想与空想牢牢掌握意识形态工作领导权必须坚持四俞正声对泰国进行正式友好访问全国首个非遗主题文博会举办
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘