锐客网

  1. 首页 > 睿知 > >

excel脚本编程，怎么在Excel里面学脚本连接SQL数据库生成报表

经验分享睿知

1，怎么在Excel里面学脚本连接SQL数据库生成报表楼主，用office2013吧，现成的连接sql ， 简单易用！(*^__^*) 嘻嘻……【excel脚本编程，怎么在Excel里面学脚本连接SQL数据库生成报表】
2，求一个简单的EXCEL脚本或公式在SHEET1中选顶A列,数据-分列-分隔符-其他(输入/),B列为你需要的字母串.在SHEET2A1输入=VLOOKUP(Sheet1!B1,Sheet1!B:B,1,FALSE)公式下拉.可以的 。不过有点麻烦在c1里输入公式：=a1&char(10)&a2&char(10)&a3然后在右击c1，设置单元格格式－－－对齐选项卡－－－将“自动换行”前的勾打上 。然后把c1单元格的高度和宽度拉到足够容纳三行内容 。这样，出来的结果就和原来的格式一样了 。你好,我可以帮你弄个公试,但是我不会弄VBA,删除可以用手动删除呀,在SHEE2!A1=if(sheet1!="abcd.com/*",mid(sheet1!a1,9,100)""),这个就是在SHEET2!A列里面提取出SHEET1里面ABCD.COM/后面的字符,删除的话可以筛选再删除
3 ， 以Excel表格数据为数据源脚本读取处理回填刚才路过时看到有通过dot模板（？）填写表格数据，然后运行宏（？），计算后回填结果 。感觉是个不错的方法 。填写Excel表比在脚本中直接书写输入数据，更直观 。不失为一种方法 。如，导线计算中从Excel中读取导线点名、观测角、水平角、起始数据，脚本计算后 ， 再填回到Excel表中 。WalkLan手册中wkFile类中有下面几个成员函数可用吗？class wkFile{ ... //打开excel文件 bool excelOpen(string sheetName); //关闭excel文件 void excelClose(); //获取excel单元格 bool excelGetCell(string& val, int row, int col, int sheetIndex = 0); //设置单元格的值 void excelSetCell(string newVal, int row, int col, int sheetIndex = 0);...};能给个简单例子吗？是的 ， WalkLan不支持Excel 。要在WalkISurvey的WalkScript才可以 。谢谢！
4，在EXCEL的VB编辑器中如何编写刷新数据脚本因为说得不够具体 ， 下面就以一个例子来说明 ， 你可根据实际进行修改： 例子：从"加班工时数据"文件夹下有份,要求使用SQL技术将表里的数据导入所有数据(不含表头)到里的"自愿加班"表格里. Private Sub CommandButton1_Click() Sheets("自愿加班").Activate Set xx = CreateObject("adodb.connection") With xx .Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.Path & "/" & "加班工时数据/" & "自愿加班工时登记表.XLS" Sql = "select * from [sheet1$a3:h65536] " [A4].CopyFromRecordset .Execute(Sql) End With xx.Close Set xx = Nothing End Sub 记得把备注栏单元格取消合并没看懂你到底要说的是个什么儿5 ， 怎么用EXCEL的VBA脚本进行行的操作有的，我录制的宏代码举例：activesheet.shapes("picture 1").selectselection.shaperange.scalewidth 0.62, msofalse, msoscalefromtopleftselection.shaperange.scaleheight 0.62, msofalse, msoscalefromtopleft怎么你们全能把代码贴上来！为什么我贴一次和一次呀！百度！我和你有深仇大恨么？！for c2=1 to 4for c1=1 to 3cells(3, (c1-1)*4+c2) = cells(2, c2) & "->" & cells(1, c1)next c1next c2Sub mysub()Dim a(1 To 3), b(1 To 4) As StringFor i = 1 To 3a(i) = Cells(1, i)NextFor i = 1 To 4b(i) = Cells(2, i)Nextk = 1For i = 1 To 4For j = 1 To 3Cells(3, k).Value = http://www.lisdn.com/mnsj/hhjy/b(i) +"—>" + a(j)k = k + 1NextNextEnd Sub

    推荐阅读


    上一篇：图形处理软件,图像处理软件PHOTOSHOP的专用

    下一篇：下载第2个微信，可以同时下载2个微信吗