怎样用vb访问exel表格,比如连接,访问表的内容? 请帮忙了!! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 微软的答案:http://support.microsoft.com/default.aspx?scid=kb;EN-US;278973 先引用microsoft excel 9.0 object library Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet Set xlApp = New Excel.Application Set xlBook = xlApp.Workbooks.Add Set xlSheet = xlBook.Worksheets.Add IdxCount = 1 xlSheet.Cells(IdxCount, 1) = Caption xlSheet.Range("A1").Select xlSheet.Range("A1:C1").MergeCells = True xlSheet.Range("A1:C1").Font.Name = "楷体_GB2312" xlSheet.Range("A1:C1").Font.FontStyle = "加粗" xlSheet.Range("A1:C1").Font.Size = 16 xlSheet.Range("A1:C1").HorizontalAlignment = xlCenter xlSheet.Range("A1:C1").VerticalAlignment = xlCenter vb6.0如何获取服务器时间? 关于VB和Qbasic里的chr$()函数问题 VB开发环境中引用高版本的WORD对象库(2003)创建的EXE,在只安装低版本Word(2000 XP)的系统可否正常运行? 這個&是做啥用的? 图片缩放问题请教专家 如何实现excel文件与vb中grid之间的复制粘贴 用程序怎么得到flash插件的版本号等 图象平滑放大的Pixel算法总算写出来了!大家共享! 在VB里怎么同时检测 CTRL和回车 这2个动作啊 打包时出现错误号429,该怎么班才能正常打包? 固定窗体的大小 请问有没有人用过“神农卡”?
http://support.microsoft.com/default.aspx?scid=kb;EN-US;278973
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlApp = New Excel.Application
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets.Add
IdxCount = 1
xlSheet.Cells(IdxCount, 1) = Caption
xlSheet.Range("A1").Select
xlSheet.Range("A1:C1").MergeCells = True
xlSheet.Range("A1:C1").Font.Name = "楷体_GB2312"
xlSheet.Range("A1:C1").Font.FontStyle = "加粗"
xlSheet.Range("A1:C1").Font.Size = 16
xlSheet.Range("A1:C1").HorizontalAlignment = xlCenter
xlSheet.Range("A1:C1").VerticalAlignment = xlCenter