精华内容
下载资源
问答
  • 使用vb按指定路径及文件名将EXCEL另存为横版PDF等格式
  • 把format函数嵌套进 saveas 代码中,即可实现工作簿命名自动取当前的时间,必要是可以加下后缀,避免工作簿名称重复。format函数取到分钟即可。不过在一分钟内不要再点另存为,否则工作簿名称重复。另存为后活动工作...
  • VB6.0将数据保存TXT文件,源代码编写
  • Java源码下载 1个目标文件 摘要:Java源码,网络相关,HTTP   Java实现HTTP连接与浏览,Java源码下载,输入html文件地址或网址,显示页面和HTML源文件,一步步的实现过程请下载本实例的Java源码,代码中包括丰富的...
  • EXcelVBA另存之后删除按钮及宏代码
  • 代码实现的是从一个工作簿单独保存其中一个工作表,并以单元格数据命名新工作簿名称
  • VB程序Word转换成PDF

    2018-09-12 10:46:04
    VBA程序将Word转成PDF,可以做出WSF供Java和C程序调用。此程序调通过,实际项目上用到过,仅供参考。
  • 代码 Dim ls_File Set objArgs = WScript.Arguments '命令行参数 ls_File = objArgs(0) '第一个参数通常就是文件名 ls_new = left(ls_File, len(ls_File) -5 )+".pdf" Set pptApp = CreateObject("Word.Applic...

    先创建一个vbs文件, 定义如下:

     

    代码
    
       
    Dim ls_File
    Set objArgs = WScript.Arguments ' 命令行参数

    ls_File
    = objArgs( 0 ) ' 第一个参数通常就是文件名
    ls_new = left (ls_File, len (ls_File) - 5 ) + " .pdf "
    Set pptApp = CreateObject ( " Word.Application " ) ' 申明调用函数
    pptApp.Visible = True ' ,一定要有此句,否则会出错
    Set MyPress = pptApp.Documents.Open( ls_file) ' Document 对象
    MyPress.Saveas ls_new, 17
    pptApp.Quit

    代码里的17 是另存为选项,可以用宏看到每个机器对应菜单的数字编号.

     

    需要使用这个文件的话,只需执行如下命令就ok:

    C:\WINDOWS\system32\wscript.exe c:\convert.vbs "C:\SourceFile.docx"

     

    这里假定vbs 文件名叫convert.vbs, 目标文件是SourceFile.docx, 另存为的结果也在SourceFile的目录

    转载于:https://www.cnblogs.com/xpp123/archive/2011/01/07/1930253.html

    展开全文
  • 使用VBA代码一键分离另存excel文件的sheet子表 打开VB,增加模块,输入以下代码: Sub SaveSeparately() Dim sht As Worksheet Application.ScreenUpdating = False ipath = ThisWorkbook.Path & “” For ...

    使用VBA代码一键分离另存excel文件中的sheet子表

    打开VB,增加模块,输入以下代码:
    Sub SaveSeparately()
    Dim sht As Worksheet
    Application.ScreenUpdating = False
    ipath = ThisWorkbook.Path & “”
    For Each sht In Sheets
    sht.Copy
    ActiveWorkbook.SaveAs ipath & sht.Name
    ActiveWorkbook.Close
    Next
    Application.ScreenUpdating = True
    End Sub

    一、在模块中键入以上代码之后,点击保存,选择图片中的“否”。
    在这里插入图片描述

    二、另存为“excel启用宏的工作簿”,保存。
    在这里插入图片描述
    三、保存完之后,点击图片中的三角形运行代码后即可自动将每个子表保存为独立的excel文件。
    在这里插入图片描述

    展开全文
  • 工作表单元格区域另存为图片

    千次阅读 2019-04-25 00:14:56
    实例需求:工作表的表格内容(A1:C8)另存为图片。 这个很难吗?确实不难。一定要用VBA吗?不一定呦。先来看看如下操作,在工作表选中相应的单元格区域,依次点击【开始】选项卡的【复制】下拉按钮->【复制...

    实例需求:工作表中的表格内容(A1:C8)另存为图片。

    这个很难吗?确实不难。一定要用VBA吗?不一定呦。先来看看如下操作,在工作表中选中相应的单元格区域,依次点击【开始】选项卡的【复制】下拉按钮->【复制为图片】命令;然后打开图片编辑器,粘贴图片;另存为图片文件。
    在这里插入图片描述
    貌似这个操作并不麻烦,如果老板需要你把100个工作表都这样处理一下,求此时的心理阴影面积!
    VBA就是来解救你的,翠花,上代码… …

    Sub SaveRangeAsPic()
        Dim strPath As String
        Dim Rng As Range
        strPath = ThisWorkbook.Path
        Set Rng = Range("A1:C8")
        Rng.CopyPicture Appearance:=xlScreen, Format:=xlBitmap
        ActiveSheet.Paste
        With ActiveSheet.ChartObjects.Add(0, 0, Selection.Width, Selection.Height).Chart
            Selection.Delete
            .Parent.Select
            .Paste
            .Export strPath & "\" & Format(Now(), "yyyymmddhhmmss") & ".jpg", "JPG"
            .Parent.Delete
        End With
    End Sub
    

    【代码解析】
    第6行代码实现上述手工操作时将单元格区域复制为图片。
    第7行代码将剪贴板中的图片粘贴到工作表中,用户获取图片的宽度和高度。PowerPoint中图片可以直接另存为单独文件,但是Excel中不支持这个功能,所以需要借助Chart对象。
    第8行代码添加一个Chart对象。
    第9行代码删除工作表中粘贴的图片。
    第10行代码选中ChartObject对象,此行代码是必须的,否则导出的图片文件是空白的。
    第11行代码粘贴图片。
    第12行代码将图片导出为文件,保存在当前目录中。
    第13行代码删除ChartObject对象。

    展开全文
  • EXcelVBA另存工作簿之后删除按钮及宏代码
  • vba另存为按钮,代码原件。可直接复制插入
  • 使用solidworks进行机械设计工作...主要功能是另存装配体所有含图纸的部件的图纸未DWG,并命名“代号_名称”格式,新建EXCEL,记录“代号”,“名称”,“材质”,“数量”。如有疑问欢迎加QQ1053982705互相探讨。
  • Command1.Caption = “打开” Command2.Caption = “另存为” End Sub 'VB API调用颜色对话框 Private Type ChooseColor lStructSize As Long hwndOwner As Long hInstance As Long rgbResult As Long lpCustColors ...

    Private Declare Function GetOpenFileName Lib “comdlg32.dll” Alias “GetOpenFileNameA” (pOPENFILENAME As OPENFILENAME) As Long '"打开"API
    Private Declare Function GetSaveFileName Lib “comdlg32.dll” Alias “GetSaveFileNameA” (pOPENFILENAME As OPENFILENAME) As Long '"保存"APIA
    Private Type OPENFILENAME
    lStructSize As Long
    hwndOwner As Long
    hInstance As Long
    lpstrFilter As String
    lpstrCustomFilter As String
    nMaxCustFilter As Long
    nFilterIndex As Long
    lpstrFile As String
    nMaxFile As Long
    lpstrFileTitle As String
    nMaxFileTitle As Long
    lpstrInitialDir As String
    lpstrTitle As String
    Flags As Long
    nFileOffset As Integer
    nFileExtension As Integer
    lpstrDefExt As String
    lCustData As Long
    lpfnHook As Long
    lpTemplateName As String
    End Type

    Private Function OpenImaget(hWnd As Long, DaBao As Boolean) As String '打开与另存为文件对话框
    Dim

    展开全文
  • 基于vb的一个简单的多文档文本编辑器一个简单的多文档文本编辑器
  • 模拟按Print Screen键,然后保存到BMP文件
  • 用VBA将xml格式的excel另存为xlsx

    千次阅读 2019-06-15 01:46:26
    需要将从数据库提取的数据交给用户,由于数据量较大(好几十万行),若导出有固定分隔符的文本文件给用户,一来体验上不太好,二来若文本字符和分隔符号相同可能会出问题。于是想导出Excel,若行数超出Excel行数...
  • 摘要:VB源码,网络相关,源代码查看器 网页源代码查看器VB源码下载,原创作者:骑木马的哥哥。可以获取网站代码,并可以保存txt和html。。。菜鸟程序,有需要的拿去参考吧!用到了网络连接建立及读取内容、清空变量...
  • VB实现将多张图片保存AVI 用VB实现录屏所需要VB代码VB实现合成视频所需的 VB屏幕录制所需源码实例
  • 代码 '--------------------'类模块:FSO'SielnceNet@qq.Com'时间:2008-7-415:57:53'说明:打开/保存任意编码格式的文本文件'--------------------OptionExplicitPrivateFileBodyAsString'文件内容...
  • 此源代码利用API来获取打开文件完整路径 以及 保存时的完整路径 不会实际打开文件或保存文件 如果需要实际操作则需要另外代码实现 这里就不实例了. 主要免控件而利用API实现打开保存对话框
  • 代码,查找替换的要求是一个船体控制另一个窗体,
  • 欢迎使用Markdown编辑器写博客 ...代码块高亮 图片链接和图片上传 LaTex数学公式 UML序列图和流程图 离线写博客 导入导出Markdown文件 丰富的快捷键 快捷键 加粗 Ctrl + B 斜体 Ctrl + I
  • 内容索引:VB源码,网络相关,网页照相机,抓屏 VB版网页照相机,可以抓取整个网页,并保存图像,也可以另存为BMP格式,或者只将其保存到系统剪贴板。运行测试时,输入网站,要等待一会才能将其正确保存,否则可能会是...
  • 编辑文件程序在本窗体范围内进行捕捉鼠标的位置,打开txt文件,修改性,另存为等功能。(VB6.0源代码编写)
  • Export Worksheet Option Explicit Sub exportSheet() Const FolderPath As String = "C:\Test\" Const FileName As String = "ART.xlsx" Const SheetName As String = "Master List" ... On Error Resume Next...
  • vb webbrowser 保存网页源码的各种…

    千次阅读 2016-02-24 11:22:10
    我在网上找到使用rft控件保存webbrowse文本  txtHtml是RichTextBox ...´flag :rsftext 保存txt文件,strtmp文件路径 txtHTML.saveFile strtmp, rtfText 将其name属性设置web   Private Sub Com
  • vb生成Vista风格窗口的控件,具有透明效果的VB窗体控件,想当漂亮的窗体风格,99%的Vista Aero窗体VB源码。失去焦点时窗体透明度降低  dec alpha when form lost focus  失去焦点时窗体阴影减弱  dec shadow ...
  • 实现DES加密解密VB代码 另存为其他文件类型
  • vb编写一个简易的编译器界面

    千次阅读 2020-04-25 13:14:53
    初学VC写了一个简单的编译器界面,请各位...1、工程代码块: 2、系统主界面 3、读取文件,编辑文件,复制,剪切,粘贴等小功能实现 4、显示/隐藏工具栏 目前还在完善,有啥改进意见的我们可以一起讨论哦~~ ...

空空如也

空空如也

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

vb中另存为的代码