With ActiveSheet.Shapes.AddPicture(path, msoTrue, msoTrue, Px + 30, Py - 180, 120, 100) .Name = "Picture" With .ForeColor .Type = 2 En...
分类：
编程语言 时间：
2015-01-03 14:32:10
阅读次数：
262
今天项目上有个应用，获取指定Excel文件下的所有sheet的名称以及当前sheet中指定单元格的值，并把他们写到固定的sheet中去，看了下，文件比较多，而且每个文件sheet的个数比较多，也不一样，所以打算写个程序来帮我们实现任务，代码很简单，也写的比较死板。欢迎大家给出意见及你的代码：Sub ...
分类：
编程语言 时间：
2014-12-31 16:10:24
阅读次数：
146
这是一个可以计算桩号之差（也就是得到长度）的Excel（或WPS）扩展函数，可以减少工程师在统计工程量时的工作量。该函数具有一定的通用性。可以在MS Office和金山WPS上使用。文末会给出使用本函数的简单步骤，关于如何在Excel（或WPS）中自定义函数的较详细介绍请移步这里[1]。将下面内容复...
分类：
编程语言 时间：
2014-12-26 14:35:59
阅读次数：
333
VBA连接SQL SERVER数据库操作Excel。
Sub 按钮1_Click()
Dim i As Integer, j As Integer, sht As Worksheet 'i,j为整数变量；sht 为excel工作表对象变量，指向某一工作表
'Dim cn As New ADODB.Connection '定义数据链接对象 ，保存连接数据库信息；...
分类：
数据库 时间：
2014-12-25 16:32:12
阅读次数：
515
Public Sub ErgodicDim() Dim ent As AcadEntity '对象基类 For Each ent In ThisDrawing.ModelSpace '所有对象 If TypeOf ent Is AcadText Then '...
分类：
编程语言 时间：
2014-12-25 12:53:24
阅读次数：
1393
这次和大家分享的事关于excel中宏的一个真实案例。这个宏实例是根据某部门同事的需求编写的一段非常简单的代码。里面涉及到判断单元格是否填充颜色，if语句，和for语句。细致的语法不想多说，主要是想和大家分享对宏的认识，让大家对宏产生兴趣。大家先看下表，截图是已将可识..
分类：
其他好文 时间：
2014-12-24 10:08:57
阅读次数：
147
症状当您尝试插入用户窗体，当您在 Microsoft Visual Basic 编辑器中一在这篇文章，或者在您试图打开的文档包含用户窗体的开头列出的产品时，您可能会收到以下错误消息：类没有注册。寻找与 CLSID 的对象： {AC9F2F90-E877-11CE-9F68-00AA00574A4F}...
分类：
编程语言 时间：
2014-12-24 09:49:04
阅读次数：
1128
使用ado连接本身的数据库，需要先创建一个 adodb.connection的连接对象 Set cn = CreateObject("ADODB.Connection") 数据库的提供者 cn.Provider = "Microsoft.ACE.OLEDB.12.0" CurrentProject....
分类：
数据库 时间：
2014-12-23 21:07:05
阅读次数：
146
VBA获取某文件夹下所有文件，或子文件目录的文件
'-------------------------------------------
'获取某文件夹下的所有Excel文件
'-------------------------------------------
Sub getExcelFile(sFolderPath As String)
On Error Resume Next
Di...
分类：
编程语言 时间：
2014-12-23 12:29:16
阅读次数：
349
Dim rCurrentCell As Range ' 每一页之分页小计所在单元格Dim r1stSubCell As Range ' 小计区域第一个单元格' -------------------------------------------------' 从这里开始执行Sub Mai...
分类：
编程语言 时间：
2014-12-21 20:36:02
阅读次数：
246
