精华内容
下载资源
问答
  • vba 创建excel 文件

    万次阅读 2017-02-10 10:01:12
    sub Create(paths,files) Dim w As Workbook  Set w = Application.Workbooks.Add  On Error Resume Next  w.SaveAs Filename:=paths & "\" & files & ".xlsx" '在此输入新建工作簿的文件名,包括完整路径和...

    sub Create(paths,files)

    Dim w As Workbook
        Set w = Application.Workbooks.Add
        On Error Resume Next
        w.SaveAs Filename:=paths & "\" & files & ".xlsx"             '在此输入新建工作簿的文件名,包括完整路径和扩展名
        On Error Resume Next
        Sheets("sheet1").name = files                                              '将sheet重命名为文件名

    call other
        w.Save
        w.Close

    end sub

    sub other

    msgbox "其他功能"

    end sub

    展开全文
  • EXCEL VBA制作的加载宏

    2018-03-24 23:43:44
    EXCEL VBA制作的加载宏,很有用,可以通用函数,加载后一直使用
  • 代码可以做成wsf文件,通过C语言或者java调用 <job id="etop"> <reference guid="{00020813-0000-0000-C000-000000000046}" comment="MSExcel 2000 tag library, under HKEY_CLASSES_ROOT\TypeLib\"/> &...

    需要传两个参数,excel路径和pdf路径。
    代码可以做成wsf文件,通过C语言或者java调用

    <job id="etop">
    <reference guid="{00020813-0000-0000-C000-000000000046}"	comment="MSExcel 2000 tag library, under HKEY_CLASSES_ROOT\TypeLib\"/>
    <script language="VBScript">
    
    Option Explicit
    
    Dim excel_file
    Dim pdf_file 
    
    'If WScript.Arguments.Count < 2 Then
    '	MsgBox "Usage: t1 <excel_file> <pdf_file> "
    '	WScript.Quit
    'End If
    
    excel_file = WScript.Arguments(0)
    pdf_file= WScript.Arguments(1)
    
    Dim ExcelApp
    Set ExcelApp = CreateObject("Excel.Application")
    
    With ExcelApp
    	.Visible = False '设置excel为可见
    	'With .Options
    	'	.CheckSpellingAsYouType = False '不检查拼写
    	'	.CheckGrammarAsYouType = False '不检查语法
    	'End With
    	'打开模板文件
    	.Workbooks.Open(excel_file)
    	.Workbooks(1).Activate '激活文档
    	Dim doc
    	Set doc = .ActiveWorkbook '得到这个使用中的文件
    	
    	doc.ExportAsFixedFormat 0,pdf_file,xlQualityStandard,True,True
    	'pdf_file, 17, False, 0, 0, 1, 1, 0, True, True, 0, True, True, False
    
    	doc.Close False
    	'With .Options
    	'	.CheckSpellingAsYouType = True
    	'	.CheckGrammarAsYouType = True
    	'End With
    	.Quit
    	
    End With
    </script>
    </job>
    
    展开全文
  • Excel VBA封装exe程序[老贴收藏]

    万次阅读 2019-09-17 16:23:22
    Excel VBA封装exe程序[老贴收藏] 假如您手头已有一xls文档等待封装,假如您机子上已安装有VB6开发系统,那么请跟着往下操作: 一、用VB制作EXE文件头部分 1、打开VB,“文件”-“新建工程”-“标准EXE”; 2...

    将Excel VBA封装成exe程序[老贴收藏]
    假如您手头已有一xls文档等待封装,假如您机子上已安装有VB6开发系统,那么请跟着往下操作:

    一、用VB制作EXE文件头部分

      1、打开VB,“文件”-“新建工程”-“标准EXE”;
    
      2、此时会出现名为Form1的默认窗体编辑窗口,Form1将作为软件启动封面窗体,打开该Form1的属性窗口,对如下属性进行设置:BorderStyle=0,StartUpPosition=2,Icon与Picture属性设置成你需要的图标(这也将成为你EXE的图标)和设计好准备使用的图片(即软件封面),窗体的大小设置成您需要的合适值即可。
    
      3、往窗体中添加一个时钟控件timer1,并将其InterVal属性设为1000。
    
      4、双击窗体打开代码编辑窗口,录入以下代码:
    

    Private Declare Function SetWindowPos Lib “user32” (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
    Private Declare Function GetTempFileName Lib “kernel32” Alias “GetTempFileNameA” (ByVal lpszPath As String, ByVal lpPrefixString As String, ByVal wUnique As Long, ByVal lpTempFileName As String) As Long
    Private Declare Function GetTempPath Lib “kernel32” Alias “GetTempPathA” (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
    Private Const MAX_PATH = 260
    Private Const EXE_SIZE = 81920 '本EXE实际字节大小
    Private Type FileSection
    Bytes() As Byte
    End Type
    Private Type SectionedFile
    Files() As FileSection
    End Type
    Dim StopTime As Integer

    Private Sub Form_Activate()
    If Command$() = “” Then Main1
    End Sub

    Private Sub Form_Load()
    On Error Resume Next
    If Command$() = “” Then
    Form1.Visible = True
    SetWindowPos Form1.hwnd, -1, 0, 0, 0, 0, &H2 Or &H1 '将封面置为最顶层窗体
    Else
    Form1.Visible = False
    Form1.Timer1.Enabled = True
    End If
    End Sub
    Sub Main1()
    Dim StartXLSByte, I, J As Long
    Dim AppPath, XlsTmpPath As String
    Dim myfile As SectionedFile
    Dim xlApp As Excel.Application '定义EXCEL类
    Dim xlBook As Excel.Workbook '定义工件簿类
    Dim xlsheet As Excel.Worksheet '定义工作表类
    AppPath = App.Path
    XlsTmpPath = GetTempFile() '取得XLS临时文件名(带路径)
    If VBA.Right(App.Path, 1) = “” Then AppPath = VBA.Left(App.Path, VBA.Len(App.Path) - 1)
    Open AppPath & “” & App.EXEName & “.exe” For Binary As #1
    ReDim myfile.Files(1)
    ReDim myfile.Files(1).Bytes(1 To LOF(1) - EXE_SIZE)
    Open XlsTmpPath For Binary As #2
    Get #1, EXE_SIZE + 1, myfile.Files(1).Bytes '此处数字要根据EXE实际头文件大小更改设定
    Put #2, 1, myfile.Files(1).Bytes
    Close #1
    Close #2
    Set xlApp = CreateObject(“Excel.Application”) '创建EXCEL应用类
    Set xlBook = xlApp.Workbooks.Open(FileName:=XlsTmpPath, password:=“ldhyob”) '打开EXCEL工作簿,已知该工作簿已加打开口令为ldhyob
    '以下星号括起部分代码是往xls里写数据(也可不往工作簿里写数据的方法,而生成txt的方法),作用是保存本exe的绝对路径与临时xls绝对路径,以便于EXE重写更新与临时文件删除
    '*****************************************
    Set xlsheet = xlBook.Worksheets(“temp”) '设置活动工作表
    xlsheet.Cells(1, 1) = AppPath & “” & App.EXEName & “.exe” '将该EXE完全路径存在工作表单元格内
    xlsheet.Cells(2, 1) = XlsTmpPath '将该EXE本次运行产生XLS临时文件路径存在工作表单元格内
    '****************************************
    xlApp.Visible = True '设置EXCEL可见
    Set xlApp = Nothing '释放xlApp对象
    StopTime = 0
    Me.Timer1.Enabled = True '启动时钟
    End Sub

    Private Function GetTempFile() As String '用来产生系统临时文件名
    Dim lngRet As Long
    Dim strBuffer As String, strTempPath As String
    strBuffer = String ( M A X P A T H , 0 ) l n g R e t = G e t T e m p P a t h ( L e n ( s t r B u f f e r ) , s t r B u f f e r ) I f l n g R e t = 0 T h e n E x i t F u n c t i o n s t r T e m p P a t h = L e f t (MAX_PATH, 0) lngRet = GetTempPath(Len(strBuffer), strBuffer) If lngRet = 0 Then Exit Function strTempPath = Left (MAXPATH,0)lngRet=GetTempPath(Len(strBuffer),strBuffer)IflngRet=0ThenExitFunctionstrTempPath=Left(strBuffer, lngRet)
    strBuffer = StringKaTeX parse error: Expected 'EOF', got '&' at position 65: …pPath, "tmp", 0&̲, strBuffer) …(0))
    If lngRet > 0 Then
    GetTempFile = Left$(strBuffer, lngRet - 1)
    Else
    GetTempFile = strBuffer
    End If
    End Function

    Private Sub Timer1_Timer()
    On Error Resume Next
    If Command ( ) < > " " T h e n I f V B A . D i r ( C o m m a n d () <> "" Then If VBA.Dir(Command ()<>""ThenIfVBA.Dir(Command()) <> “” Then
    Kill Command$() '删除本次运行遗留的临时XLS文件
    Else
    End
    End If
    Else
    StopTime = StopTime + 1 '计时累加
    If StopTime = 1 Then Unload Me: End '2秒后自动关闭退出
    End If
    End Sub

     5、可保存工程,如取名为“工程1”;
    
    6、进行编译,“文件”-“生成工程1.exe”,此时也可将生成的EXE另外取名,如取名叫abc.exe。
    
    7、查看第6步生成的EXE文件字节大小,并将具体数字记下来,并将VB模块中的“Private Const EXE_SIZE = 81920”保证一致(这里的81920是笔者例子的结果数字,每个人在实际时会有不同)。此例此步很重要,必须要做,该数字在xls文档VBA中还要使用到。
    
      至此,文件头部分已做完,abc.exe文件也已生成于磁盘中。
           特别提示:编译前,确保VB里"工程"---"引用"里"Microsoft Excel 9.0 Object Library"前面的勾已打上.
    

    二、xls文档部分操作

      1、给工作簿增加一个工作表temp,将其置为隐藏。
    
      2、增加xls文档宏代码以实现文档关闭时EXE数据刷新。
    
      打开xls文档,打开VBE窗口,在ThisWorkBook代码区头部加入以下代码:
    

    Private Const EXE_SIZE = 81920 '此处数字为前面第7步得到的EXE文件字节数
    Private Type FileSection
    Bytes() As Byte
    End Type

    在Workbook_BeforeClose事件中加入如下代码 (对原有的代码可保留)

    Dim myfile As FileSection '定义变量
    Dim comc, exec, xlsc As String '定义变量
    Application.Visible = False '隐藏EXCEL主窗口
    exec = WorkSheets(“temp”).cells(1, 1).Value
    xlsc = WorkSheets(“temp”).cells(2, 1).Value
    comc = exec & " " & xlsc
    Open exec For Binary As #1 '打开EXE文件
    ReDim myfile.Bytes(1 To EXE_SIZE)
    Get #1, 1, myfile.Bytes '取得固有文件头
    Close #1
    If VBA.Dir(exec) <> “” Then Kill exec
    Open exec For Binary As #1 '生成新的EXE文件
    Put #1, 1, myfile.Bytes '先写入文件头
    Open xlsc For Binary As #2 '打开xls临时文件
    ReDim myfile.Bytes(1 To FileLen(xlsc))
    Get #2, 1, myfile.Bytes
    Put #1, EXE_SIZE + 1, myfile.Bytes '将xls部分追加进EXE
    Close #1
    Close #2
    Application.Quit
    Shell comc, vbMinimizedNoFocus '删除临时xls文件

      3、保存文档,退出,关闭EXCEL。
    

    三、将EXE与XLS结合生成新的EXE

      将第一步得到的abc.exe与第二步得到的test.xls(文件名随你愿意取)放到同一目录下,切换到MS-DOS模式,或者在该目录下建立一个批处理文件即bat文件,这样就不用切换到MS-DOS模式下输入DOS命令了。建立bat文件的步骤方法是:鼠标右键“新建”—“文本文档”,输入以下内容:
    

    @echo off
    copy /b abc.exe + test.xls main.exe
    保存,更改文件名(包括扩展名)为“合并.bat”,然后双击它,不一会就会发现在当前目录下会多出一个EXE文件main.exe,这就是封装成品了,你可以将其重命名为所需要的名称。
    ————————————————
    版权声明:本文为CSDN博主「miaozk2006」的原创文章,遵循 CC 4.0 BY-SA 版权协议,转载请附上原文出处链接及本声明。
    原文链接:https://blog.csdn.net/miaozk2006/article/details/82417176

    欢迎使用Markdown编辑器

    你好! 这是你第一次使用 Markdown编辑器 所展示的欢迎页。如果你想学习如何使用Markdown编辑器, 可以仔细阅读这篇文章,了解一下Markdown的基本语法知识。

    新的改变

    我们对Markdown编辑器进行了一些功能拓展与语法支持,除了标准的Markdown编辑器功能,我们增加了如下几点新功能,帮助你用它写博客:

    1. 全新的界面设计 ,将会带来全新的写作体验;
    2. 在创作中心设置你喜爱的代码高亮样式,Markdown 将代码片显示选择的高亮样式 进行展示;
    3. 增加了 图片拖拽 功能,你可以将本地的图片直接拖拽到编辑区域直接展示;
    4. 全新的 KaTeX数学公式 语法;
    5. 增加了支持甘特图的mermaid语法1 功能;
    6. 增加了 多屏幕编辑 Markdown文章功能;
    7. 增加了 焦点写作模式、预览模式、简洁写作模式、左右区域同步滚轮设置 等功能,功能按钮位于编辑区域与预览区域中间;
    8. 增加了 检查列表 功能。

    功能快捷键

    撤销:Ctrl/Command + Z
    重做:Ctrl/Command + Y
    加粗:Ctrl/Command + B
    斜体:Ctrl/Command + I
    标题:Ctrl/Command + Shift + H
    无序列表:Ctrl/Command + Shift + U
    有序列表:Ctrl/Command + Shift + O
    检查列表:Ctrl/Command + Shift + C
    插入代码:Ctrl/Command + Shift + K
    插入链接:Ctrl/Command + Shift + L
    插入图片:Ctrl/Command + Shift + G
    查找:Ctrl/Command + F
    替换:Ctrl/Command + G

    合理的创建标题,有助于目录的生成

    直接输入1次#,并按下space后,将生成1级标题。
    输入2次#,并按下space后,将生成2级标题。
    以此类推,我们支持6级标题。有助于使用TOC语法后生成一个完美的目录。

    如何改变文本的样式

    强调文本 强调文本

    加粗文本 加粗文本

    标记文本

    删除文本

    引用文本

    H2O is是液体。

    210 运算结果是 1024.

    插入链接与图片

    链接: link.

    图片: Alt

    带尺寸的图片: Alt

    居中的图片: Alt

    居中并且带尺寸的图片: Alt

    当然,我们为了让用户更加便捷,我们增加了图片拖拽功能。

    如何插入一段漂亮的代码片

    博客设置页面,选择一款你喜欢的代码片高亮样式,下面展示同样高亮的 代码片.

    // An highlighted block
    var foo = 'bar';
    

    生成一个适合你的列表

    • 项目
      • 项目
        • 项目
    1. 项目1
    2. 项目2
    3. 项目3
    • 计划任务
    • 完成任务

    创建一个表格

    一个简单的表格是这么创建的:

    项目Value
    电脑$1600
    手机$12
    导管$1

    设定内容居中、居左、居右

    使用:---------:居中
    使用:----------居左
    使用----------:居右

    第一列第二列第三列
    第一列文本居中第二列文本居右第三列文本居左

    SmartyPants

    SmartyPants将ASCII标点字符转换为“智能”印刷标点HTML实体。例如:

    TYPEASCIIHTML
    Single backticks'Isn't this fun?'‘Isn’t this fun?’
    Quotes"Isn't this fun?"“Isn’t this fun?”
    Dashes-- is en-dash, --- is em-dash– is en-dash, — is em-dash

    创建一个自定义列表

    Markdown
    Text-to- HTML conversion tool
    Authors
    John
    Luke

    如何创建一个注脚

    一个具有注脚的文本。2

    注释也是必不可少的

    Markdown将文本转换为 HTML

    KaTeX数学公式

    您可以使用渲染LaTeX数学表达式 KaTeX:

    Gamma公式展示 Γ ( n ) = ( n − 1 ) ! ∀ n ∈ N \Gamma(n) = (n-1)!\quad\forall n\in\mathbb N Γ(n)=(n1)!nN 是通过欧拉积分

    Γ ( z ) = ∫ 0 ∞ t z − 1 e − t d t   . \Gamma(z) = \int_0^\infty t^{z-1}e^{-t}dt\,. Γ(z)=0tz1etdt.

    你可以找到更多关于的信息 LaTeX 数学表达式here.

    新的甘特图功能,丰富你的文章

    Mon 06 Mon 13 Mon 20 已完成 进行中 计划一 计划二 现有任务 Adding GANTT diagram functionality to mermaid
    • 关于 甘特图 语法,参考 这儿,

    UML 图表

    可以使用UML图表进行渲染。 Mermaid. 例如下面产生的一个序列图::

    张三 李四 王五 你好!李四, 最近怎么样? 你最近怎么样,王五? 我很好,谢谢! 我很好,谢谢! 李四想了很长时间, 文字太长了 不适合放在一行. 打量着王五... 很好... 王五, 你怎么样? 张三 李四 王五

    这将产生一个流程图。:

    链接
    长方形
    圆角长方形
    菱形
    • 关于 Mermaid 语法,参考 这儿,

    FLowchart流程图

    我们依旧会支持flowchart的流程图:

    Created with Raphaël 2.2.0 开始 我的操作 确认? 结束 yes no
    • 关于 Flowchart流程图 语法,参考 这儿.

    导出与导入

    导出

    如果你想尝试使用此编辑器, 你可以在此篇文章任意编辑。当你完成了一篇文章的写作, 在上方工具栏找到 文章导出 ,生成一个.md文件或者.html文件进行本地保存。

    导入

    如果你想加载一篇你写过的.md文件,在上方工具栏可以选择导入功能进行对应扩展名的文件导入,
    继续你的创作。


    1. mermaid语法说明 ↩︎

    2. 注脚的解释 ↩︎

    展开全文
  • Word VBA中读取Excel表格中的数据

    千次阅读 2020-10-30 09:14:13
    前天有一个项目需要写详细设计报告,其中有一块重要内容是把Excel中的每一行数据做成一个Word中的表格。一共将近100行数据,如果我一行一行地手动去做,估计手就废了,于是采用Word VBA。 基本编程思路 创建一个空...

    Word VBA中读取Excel表格中的数据

    前天有一个项目需要写详细设计报告,其中有一块重要内容是把Excel中的每一行数据做成一个Word中的表格。一共将近100行数据,如果我一行一行地手动去做,估计手就废了,于是采用Word VBA。

    基本编程思路

    1. 创建一个空word文档
    2. word文档中,编辑好一个示例表格,作为一个母表,后续所有的表格程序都是复制这张表,然后修改复制后的新表格的数据
    3. 打开Excel,遍历每一行数据
    4. 取这一行关键数据,复制母表,改变复制后的表格数据

    代码片段

    Dim wb As Document
    Set doc = Application.ActiveDocument
    
    Set xlapp = CreateObject("excel.application")
    Set wkBook = xlapp.Workbooks.Open("C:\Users\shenh\Desktop\VBA处理Excel表格\几何拓扑检查项.xlsx")
      For rowNum = 1 To 63
        CheckName = wkBook.Worksheets(1).Cells(rowNum, 3)
        meaning = wkBook.Worksheets(1).Cells(rowNum, 4)
        CheckName = CheckName & "项"
        
        paraCount = doc.Paragraphs.Count
        doc.Paragraphs(paraCount).Range.Text = CheckName & vbCrLf            '写标题
        
        paraCount = doc.Paragraphs.Count
        doc.Paragraphs(paraCount).Range.Text = CheckName & "详细定义见表" & rowNum + 75 & "所示" & vbCrLf         '写标题
        
        paraCount = doc.Paragraphs.Count
        doc.Paragraphs(paraCount).Range.Text = "表 " & rowNum + 75 & " " & CheckName & "定义表" & vbCrLf
    
        
        doc.Tables(1).Range.Copy
        Set endRange = ActiveDocument.Content
        endRange.Collapse Direction:=wdCollapseEnd
        endRange.Paste
        
        doc.Tables(rowNum + 1).Cell(1, 3).Range.Text = CheckName
        doc.Tables(rowNum + 1).Cell(1, 3).Range.Text = meaning
      Next
    MsgBox wkBook.Sheets(1).Cells(1, 5)
    wkBook.Close
    xlapp.Quit
    
    展开全文
  • 一款将Excel文档转换Exe文件独立运行的封装工具,已经是破解版。非常好! 如果觉得好用,还是建议购买正版的,支持软件产业。
  • 压缩文件中包括一个包含宏代码的Excel文件Sheet Macros.xls以及其他四个测试文件工作表 1~4。 宏的功能为(1)选中Excel表格中的某些行或列,运行某个Macro,自动根据选中的cells创建新的worksheets,worksheets的...
  • 你需要的更改:把需要打印的文件路径更改一下 我的使用场景: 金山表单收集-->自动汇集的金山文档-->金山文档右上角的“WPS打开”按钮点击一下把云端数据自动下载到电脑端,然后直接关闭就行-->调出小工具输入...
  • Excel VBA封装exe程序

    万次阅读 2019-04-19 05:54:20
    Excel VBA封装exe程序
  • Excel-VBA文件操作

    千次阅读 2018-10-05 02:16:29
    2、利用VBA文件处理语句来处理文件; 3、利用FileSystemObject对象来处理文件; 4、利用API函数来处理文件。 对于数据库文件,还可以利用ADO+SQL的方法操作,本文不讨论 利用Excel对象自带的方法来操作文件是最...
  • VBA,把excel单元格复制图片

    千次阅读 2017-11-22 18:55:11
    '通过在当前工作表添加相同大小的图表的方式转存图片 .Paste '粘贴复制后的图片 .Export "C:\文件\3.JPG" , "JPG" '导出到当前工作表目录下,以当前区域首行单元格的值命名图片 .Parent.Delete '删除该...
  • Excel VBA编程

    万次阅读 多人点赞 2019-04-11 16:45:51
    文章目录如何创建VBAVBA语法规则声明变量给变量赋值让变量存储的数据参与运算关于声明变量的其他知识变量的作用域特殊的变量——数组声明多维数组声明动态数组其他创建数组的方法数组函数利用UBound求数组的最大索引...
  • Excel-VBA操作文件四大方法

    万次阅读 2017-12-21 15:26:48
    在我们日常使用Excel的时候,不仅会用到当前Excel文件的数据,还经常需要访问其他的数据文件。这些数据文件可能是Excel文件、文本文 件或数据库文件等。经常有朋友会问如何在vba代码里操作这些数据文件?本文就
  • VBA+批处理实现WORD转EXCEL数据分析开发日志WORD程序转EXCEL并处理数据项目目的开发日志2020-09-01(批处理)开发日志V1.2.1 2020-09-05业务流程分以下几步:当前版主要的问题当前版次要的问题技术小结2020-09-05 ...
  • 使用VBAExcel工作表分割多个文件

    万次阅读 2015-11-04 12:02:08
    这里需要按城市(即B列数据)对表格进行拆分,拆分出多个以城市名称命名的xlsx文件,每个xlsx文件都只包含当前城市的数据。  相关资料 之前没有接触过Excel相关的编程,也没有学习过VB语言,完全是摸着...
  • 该工具可以将excel vba编写的程序 转换为可执行文件, 软件于2006-11-1进行了更新: 1).改进了超链失效的BUG.. 2).启动界面取消了置顶
  • VBA实现Excel转DBC

    千次阅读 2019-05-08 15:25:34
    使用方法 公众号回复VBA获取。 参考《Template》格式要求,输入DBC的信息,点击“Excel=>DBC”转化。 在CANdb++中检查输出结果。...注意:本工具非常简易,未对输入详细检查,因此不建议用在商业用途。 ...
  • VBAExcel中的插件制作

    千次阅读 2017-11-14 16:16:00
    VBAExcel中的插件制作 步骤1: 在Excel工具栏的开发工具中启动Visual Basic,进入宏编辑页面如图1: 在VBA Project中右键插入模块,命名为自定义功能区,写好的VBA代码就可以写入右边的白色框框中。 步骤2:...
  • 最近有一个需求,她到处的是xlsl格式的excel,但是服务端读这种格式的文件,如果大于3M基本就报内存超了。。。 于是然她转csv,但是……她导出的csv又太多了……找了个vba脚本批量转csv,并且将特殊符号去除。主要...
  • VBA和Python操作EXCEL文件
  • 打开一个Excel文件,选择菜单栏上的"Tools"选项->Macro->Visual Basic Editor,打开VBA编辑器。 在Modules文件夹下的csMain文件中,写下如下VB格式的代码:
  • Excel VBA编程教程(基础一)

    千次阅读 多人点赞 2020-07-10 19:27:39
    VBA介绍 Visual Basic for Applications(VBA)是 VisualBasic 的一种宏语言,是微软开发出来在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。主要能用来扩展 Windows 的应用...基本上,能用鼠标和键盘能
  • 虽然复制粘贴大法好,但如果让你汇总几十人填报的个人信息并做成汇总表格,估计你也膜不动了。因此,这一次我们就通过VBA程序完成这个任务,从此妈妈再也不担心我数数到头秃。 程序基本思路 将要合并的Excel文件放...
  • 03 Uipath调用VBA脚本,处理excel文档格式 前言: 在平时我们的工作中,经常需要使用Uipath自动的导入大量数据到Excel表格中,但是却发现,数据导入到Excel之后,格式却是很乱,基本不能看,就像下图: 而Ui...
  • 打开单独的一个Excel文档,使用“另存为”功能,可以很轻松的转换格式。但是面对几百个Excel表这样就太累了,搜索很久,也没发现一个工具可以直接批量进行格式转换。  最终发现可以使用VBA来实现批量转换Excel格式...
  • Excel中插入VBA宏处理

    2021-01-25 16:48:18
    步骤: 1、如下图的操作步骤: 2、双击按钮,给按钮给定事件(VB语言) 3、保存表格,单击按钮,弹出...4、更复杂的处理,既可以放在这个按钮下面,也可以做成函数,放在模块中。在按钮中调用模块中的函数。 ...
  • Excel VBA简介

    千次阅读 2017-07-05 14:28:36
    什么是VBA?为什么要学习VBA?  =========  VBA是Visual Basic For Application的简称,具体说来,可能让叶枫三天三夜也说不完,叶枫也只知道VBA是建立在Office中的一种应用程序开发工具,其实知道... Excel本身的
  • 大家好,我们今日讲解“利用XMLHTTP抓取百度查询关键词结果的个数”,这节内容是“VBA信息获取与处理”教程中第六个专题“VBA中利用XMLHTTP完成网抓数据”的第二节。第二节 利用XMLHTTP抓取百度查询关键词结果的个数...
  • Excel VBA高级编程-微信群发消息工具

    千次阅读 热门讨论 2020-09-15 12:30:50
    前言:这是一份基于Excel 实现的微信群发脚本,突破了微信不能群发链接的限制,可以根据备注名自动替换文本内容。因为是模拟人工操作的脚本,所以没有被封号的担忧。
  • 最前面直接说怎么,使用 sheet.Hyperlinks.Add 添加link,目的位置 anchor ,address 如果是本文件就空着,subaddress写sheet名称和位置,TextDisplay 显示的文字。 For c = 3 To .Cells(4, 3).End(xlToRight)....

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 2,721
精华内容 1,088
关键字:

vba做成excel文件