1.Application.Workbooks("Book1").Worksheets("sheet1").Range("A2")。当前代表的excel程序.工作簿.工作表.单元格.2.Cells(2,3)代表 2行3列分类            VBA             
                
                    
                        
                                                            
                                                                        
                                                                                        转载
                                                                                    
                            2021-03-13 20:33:27
                            
                                1689阅读
                            
                                                                                    
                                2评论
                            
                                                 
                 
                
                             
         
            
            
            
            Sub 产品图片导出重新对应命名()
    Dim Ad$, FileName$, sfolder$, Shp As Shape, FSO
    Application.ScreenUpdating = False
    On Error Resume Next
    Set FSO = CreateObject("Scripting.FileSystemObject")            
                
                    
                        
                                                            
                                                                        
                                                                                        转载
                                                                                    
                            2023-06-27 21:59:20
                            
                                206阅读
                            
                                                                             
                 
                
                             
         
            
            
            
             '1、工作簿(Workbooks) ' Workbooks(N)第N个工作簿      ' Workbooks ("工作簿名")      ' ActiveWorkbook 活动工作簿      ' ThisWorkBook '代码所在工作簿  '2、工作表(Worksheets)      'Sheets(N) 第N个工作表      'Sheets("工作表名")      'Sh            
                
                    
                        
                                                            
                                                                        
                                                                                        转载
                                                                                    
                            2024-03-21 23:04:14
                            
                                312阅读
                            
                                                                             
                 
                
                                
                     
                                    
                             
         
            
            
            
            DLL文件制作与在VBA调用初级进阶 
 作者:ldhyob 本文用一简例来演示如何将一正常在vba中运行的代码移植到VB制作的DLL中去,并介绍如何在vba中进行调用。这仅仅是最初级的介绍,希望能对此内容想了解的版友们一些帮助,而已掌握该技术的FANS们完全可以跳过本文。先来了解一下什么是DLL:DLL是Dynamic Link Library的缩写,意为动态链接库。在Windows中,许多应用            
                
                    
                        
                                                            
                                                                        
                                                                                        转载
                                                                                    
                            2024-08-19 10:18:47
                            
                                63阅读
                            
                                                                             
                 
                
                             
         
            
            
            
            shShell对象实例(VBA) WshSell作为WSH对象一个组成部分,主要可以实现如下功能: 1.   在本地运行程序2.   操纵注册表内容。3.   创建快捷方式4.   访问系统文件夹5.   操纵环境变量(如&nbs            
                
                    
                        
                                                            
                                                                        
                                                                                        转载
                                                                                    
                            2017-09-28 07:21:37
                            
                                2936阅读
                            
                                                                             
                 
                
                             
         
            
            
            
            AutoCAD VBA对齐对象,代码如下。 Sub AlignEnt() Dim ss As AcadSelectionSet Set ss = CreateSelectionSet ss.SelectOnScreen Dim ent As AcadEntity Dim MinPoint As Variant ...            
                
                    
                        
                                                            
                                                                        
                                                                                        转载
                                                                                    
                            2011-03-22 20:33:00
                            
                                565阅读
                            
                                                                                    
                                2评论
                            
                                                 
                 
                
                             
         
            
            
            
            一、VBA对象
几乎90%的VBA程序都是在操作对象,VBA有相应的对象、属性、方法和事件,其中对象是核心
a)        对象如何操作
对象.属性、对象.方法、父对象.子对象.属性
例:Sheets("工作表").Name----Sheets("工作表")是对象,Name是对象的属性
WorkBooks(2).Close-----前者是对象,Close是对象的方法
Range("a1:a10            
                
         
            
            
            
            
  <script type="text/javascript"> 
  </script><script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script> 
  周俊敏                
                
                    
                        
                                                            
                                                                        
                                                                                        转载
                                                                                    
                            2023-12-27 13:28:32
                            
                                100阅读
                            
                                                                             
                 
                
                             
         
            
            
            
            以下是一个使用 VBA 的例子,演示了 ByVal 和 ByRef 的区别,以及如何在函数中传递参数和返回值:Sub Example()
    Dim x As Integer, y As Integer
    
    x = 5
    y = 10
    
    ' 调用 ByValExample 函数,并将 x 的值作为参数传递给它
    MsgBox "ByValExample            
                
                    
                        
                                                            
                                                                        
                                                                                        转载
                                                                                    
                            2024-06-23 11:35:17
                            
                                293阅读
                            
                                                                             
                 
                
                             
         
            
            
            
            二、利用VBA文件处理语句来处理文件    VBA包含了许多用于文件操作的语句和函数,可以满足绝大多数情况下的文件操作要求。下面我们按照操作目的进行一一介绍。(一)文件处理
    
1.Name 语句
语法:Name oldpathname As newpathname
功能:重命名一个文件、目录、或文件夹,移动一个文件。
说明:在一个已打开的文件上使用 Name,            
                
                    
                        
                                                            
                                                                        
                                                                                        转载
                                                                                    
                            2024-05-20 15:05:21
                            
                                420阅读
                            
                                                                             
                 
                
                             
         
            
            
            
            在很多论坛中看到关于VBscript和javascript到底应该使用哪个,哪个比较好的问题? 今天我来谈谈我的看法: 服务器端: 大家知道ASP支持这两中脚本语言,也就是在服务器端用哪个都行,但大部分人在服务器 端用VBscript比较多,对于新手来说一般用VBscript就可以了。 客户端: 现在流行的主要是微软和网景这两大浏览器,微软的IE对VBscript和JAVAscript都支持, 而            
                
                    
                        
                                                            
                                                                        
                                                                                        转载
                                                                                    
                            2024-07-23 18:16:56
                            
                                48阅读
                            
                                                                             
                 
                
                             
         
            
            
            
            保留Ole控件对象,删除其他所有
Private Sub CommandButton3_Click()
Dim shp As Object
For Each shp In ActiveSheet.Shapes
If shp.Type = msoOLEControlObject Then
Else
shp.Delete
End If
Next shp
End Sub            
                
                    
                        
                                                            
                                                                        
                                                                                        转载
                                                                                    
                            2012-07-24 08:14:10
                            
                                2781阅读
                            
                                                                             
                 
                
                             
         
            
            
            
            Dim s$, fNm$ '定义公共变量:关键词s和文件名结果fNm Sub FindFile() Dim Arr, i&, pth$, ML, MT, MW, MH, shp Arr = [a1].CurrentRegion With Cells(2, 2) MW = .Width MH = .H ...            
                
                    
                        
                                                            
                                                                        
                                                                                        转载
                                                                                    
                            2021-07-21 10:51:00
                            
                                258阅读
                            
                                                                                    
                                2评论
                            
                                                 
                 
                
                             
         
            
            
            
            AutoCAD VBA根据对象缩放,代码如下。代码完。            
                
                    
                        
                                                            
                                                                        
                                                                                        转载
                                                                                    
                            2011-03-22 21:54:00
                            
                                384阅读
                            
                                                                                    
                                2评论
                            
                                                 
                 
                
                             
         
            
            
            
            大家好,到上一讲,我们学习了有关类的定义部分,涉及到的概念较多,需要大家仔细地理解。我们今日这讲,将用户自定义事件。我们建立了类,通过对象把类进行了实例化,把灵魂具体到了了肉身,我们就要让这个实例的对象参与各种事件了,由于类是我们自己进行的定义,那么实例的对象要参与的事件我们也是能自己定义的。定义用户自定义的事件的语法:[Public] Event procedurename [(a            
                
                    
                        
                                                            
                                                                        
                                                                                        转载
                                                                                    
                            2024-04-27 22:33:43
                            
                                65阅读
                            
                                                                             
                 
                
                                
                     
                                    
                             
         
            
            
            
            AutoCAD VBA基于对象的分层,讲不同对象根据特性分层,代码如下。 Dim Value As Variant Value = ThisDrawing.GetVariable("cmdecho") ThisDrawing.SetVariable "cmdecho", 0 Dim ObjLayer As AcadLayer Set O...            
                
                    
                        
                                                            
                                                                        
                                                                                        转载
                                                                                    
                            2011-03-22 22:23:00
                            
                                263阅读
                            
                                                                                    
                                2评论
                            
                                                 
                 
                
                             
         
            
            
            
             1 scripting类库 (scrrun.dll)Scripting类库中有三个可以直接使用NEW关键字实例化的类,第一个就是常用的字典,第三个是FSO。这个介绍的挺好 1.1scripting类库有多少东西?scripting.dictionaryscripting.filesystemobjectscripting.encoderscripting.Filesscrip            
                
                    
                        
                                                            
                                                                        
                                                                                        转载
                                                                                    
                            2023-11-30 10:34:44
                            
                                546阅读
                            
                                                                             
                 
                
                                
                     
                                    
                             
         
            
            
            
            提示:文章写完后,目录可以自动生成,如何生成可参考右边的帮助文档 文章目录前言一、创建FileSystemObject对象二、使用FileSystemObject操作文件1.打开文件:OpentTextFile()方法2.创建文件:CreateTextFile()方法3.操作文本流(TextStream)(1).文件指针(2).读取文件内容(3).写入文件内容 前言在VBA中有时会需要操作一些普通            
                
         
            
            
            
            1、如何复制按平时的操作习惯可以知道,只需定位第1个位置即可。    '如果想通过复制/粘贴方式呢,只需指定第1个单元格即可. With Workbooks("验证Range.xls").Sheets(2)
         .Range("A1").CurrentRegion.Copy Destination:=Workbooks("book2.xls").Shee            
                
                    
                        
                                                            
                                                                        
                                                                                        转载
                                                                                    
                            2024-04-25 08:51:42
                            
                                135阅读
                            
                                                                             
                 
                
                             
         
            
            
            
            Application对象常用属性【ActiveCell属性】ActiveCell属性返回一个Range对象,表示当前窗口或指定窗口中的单元格。如果窗口没显示工作表,则此属性无效。【代码区域】 【结果展示】 注意:之所以该单词显示于B2,是因为在执行之前我已经将鼠标悬停此处。 【ActiveWork            
                
                    
                        
                                                            
                                                                        
                                                                                        转载
                                                                                    
                            2016-12-22 17:40:00
                            
                                231阅读
                            
                                                                                    
                                2评论