精华内容
下载资源
问答
  • 总结很详细 VB CommonDialog另存为文件用法
  • 使用vb按指定路径及文件名将EXCEL另存为横版PDF等格式
  • 公司各种系统需要各式各样的导入模板,需要快速的制作模板另存为特定的工作簿,工作簿的命名要求一定的格式:年月日时分+区分标识。 在vb中array() 函数用于创建数组,表示返回一个包含数组的 Variant。在vb中array...
  • EXCEL vba 循环复制 粘贴 另存为 新的文件VBA代码 分别设置单元格内容 With Workbooks(ThisWorkbook.Name) Application.EnableEvents = False Application.ScreenUpdating = False Application.DisplayAlerts = ...
  • EXcelVBA另存之后删除按钮及宏代码
  • 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

    展开全文
  • VBA 将doc另存为docx

    千次阅读 2019-08-21 11:38:00
    当面临大量的doc数据,一万个doc分布于十多个文件夹有三级或更多地目录深度情况下,通过手动另存为的方式将doc转变docx,将是一项巨量的工作。 已知的方式有多种多样,Python,Java和VBA都能完成。 但考虑到VBA...

    当面临大量的doc数据,一万个doc分布于十多个文件夹有三级或更多地目录深度情况下,通过手动另存为的方式将doc转变为docx,将是一项巨量的工作。

    已知的方式有多种多样,Python,Java和VBA都能完成。

    但考虑到VBA是原生支持,不需要依赖外接包并且Office自带,略有方便性,就考虑使用VBA进行设定。

    环境:

    Windows7

    Office 7

    解决步骤:

    1.获取到所有.dox文件的绝对路径。

        使用路劲搜索工具或者python工具都能够快速获取到.doc的路径。

    2.将路径导入到Excle的一列。

    3.在Excle调用VBA。

        a 键入 alt + F11  打开VBA程序控制器。

        b 选择 “插入” --- “模块”

        c 输入VBA代码,然后点击运行

    4.核心代码

        a 循环调取doc文件路径 

            For i = 1 To a :        

                s = Trim(Worksheets("Sheet1").Cells(i,1))

     

        b 另存为doc文件为docx文件

            With Wordapp.Documents.Open(s)

                                            .SaveAs Filename := Replace(s, ".doc", ".docx"), FileFormat := 12

                                            .Close

     

    代码中,FileFormat := 12 代表docx格式。

     

    分割线==============================

     

    整体代码:

    Sub MyCode()

        Dim a As Integer

        Dim s As String

        Dim Workapp As Object

    Set Wordapp = CreateObject("Word.Application")

     

    a = ActiveSheet.UsedRange.Rows.Count

    Dim i As Integer

    For i = 1 To a :

        s = Trim(Worksheets("Sheet1").Cells(i,1))

        Debug.Print(s)

         With Wordapp.Documents.Open(s)

                                            .SaveAs Filename := Replace(s, ".doc", ".docx"), FileFormat := 12

                                            .Close

        Debug.Print(i)

    Next i

    Debug.Print("Finish")

     

    End Sub

     

     

     

    原创内容,抄袭必究

    ---20190806

    ---David.Ocean

    展开全文
  • 实现DES加密解密VB代码 另存为其他文件类型
  • 在这里最重要的问题是:color=DarkRed]无法得到下载CSV文件的具体地址,只能通过点击链接--点击保存--另存为来完成为了用VBA实现这一系列的功能,而且避免需要手动使用鼠标或者键盘进行保存操作...

    想要下载网页的 CSV文件 ,因为需要打开网页后,点击“SAVE AS EXCEL”的链接,出现“下载文件”的窗口,点击“保存”,出现“另存为”的窗口,修改文件的保存名称,点击保存。才算完成。

    在这里最重要的问题是:color=DarkRed]无法得到下载CSV文件的具体地址,只能通过点击链接--点击保存--另存为  来完成

    为了用VBA实现这一系列的功能,而且避免需要手动使用鼠标或者键盘进行保存操作,我想了很多办法。

    1.我试过QueryTable, 但因为所要下载的内容不是网页显示的数据,不能实现。

    2. 我也试过API 的 URLDownloadFile,也无法实现,因为没有需要下载文件的具体地址

    3. 我也尝试过右键获得文件的具体地址,但是无法实现。

    4. 试过IE 控件,这样将 ie.document.execcommand "saveas" 只是将网页“另存为”,而不是下载我所需要的文件。

    所以,我觉得可能只有用点击链接--点击保存--另存为的方法来实现所需CSV文件的下载。

    因为我要下载的文件是内部网的文件,所以无法把例子直接放上来。但是我在坛子里发现了一个类型的帖子,http://club.excelhome.net/viewth ... p;page=1#pid3360137, 我把那位楼主的例子拿来试一下,希望高手能够帮帮我。我觉得这个也是一个很典型的例子,因为网页下载需要用到鼠标控制的另存为,在坛子里还没有看到成功的例子。

    下面是链接的帖子中的yq7654提供的例子;

    超链接是个DOC文件,我现在要用MOUSE右键"目标另存为(S)"来下载这个文件

    下边是代码,请帮我瞧瞧红色的部分,是啥原因?

    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 Const HWND_BOTTOM = 1

    Private Const SWP_SHOWWINDOW = &H40

    Private Const SWP_HIDEWINDOW = &H80

    Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

    Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As Any, ByVal lpWindowName As String) As Long

    Private Declare Function SendMessageByString Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long

    Private Const WM_GETTEXT = &HD

    Dim CADObject As Object

    Sub test()

    Dim myIE2 As SHDocVw.InternetExplorer '

    Dim n As Integer

    n = 0

    Set myIE2 = New SHDocVw.InternetExplorer '

    myIE2.navigate "http://club.excelhome.net/viewthread.php?tid=224784"

    myIE2.Visible = True

    Do While myIE2.Busy: DoEvents: Loop

    Do While myIE2.ReadyState = READYSTATE_COMPLETE: DoEvents: Loop

    myIE2.Document.all.tags("a")(51).Click

    h1 = FindWindow("#32770", "文件下载") '获取文件下载对话框句柄"文件下载

    ‘一直到这里都是成功的,这时候已经出现了"文件下载“的对话框,但是下面的程序就无法运行

    希望下面能够使用VBA 实现:   1. 自动点击”文件下载“对话框下的 ”保存“键

    2. ”保存“键后会出现”另存为“对话框,自动在”另存为“对话框中键入”mydocument" 为新的文件名称。

    If h1 = 0 Then MsgBox "不能下载!": Exit Sub

    SetWindowPos h1, HWND_BOTTOM, -100, -100, 0, 0, SWP_HIDEWINDOW

    SendKeys ("%s"), True         ' SendKeys ("%(s)"),

    SendKeys后,h2总为"0",啥意思?

    h2 = FindWindow("#32770", "另存为")  '获取另存为对话框句柄

    SetWindowPos h2, HWND_BOTTOM, -100, -100, 0, 0, SWP_HIDEWINDOW

    EditBox& = FindWindowEx(h2, 0, "ComboBoxEx32", vbNullString)

    e4& = FindWindowEx(EditBox&, 0, "ComboBox", vbNullString)             '这个是写文件名位置的那个下拉框

    e5& = FindWindowEx(e4&, 0, "Edit", vbNullString)             '这下才到文本框

    strCaption = String(1024, Chr(0))           '初始化字符串

    SendMessageByString e5&, WM_GETTEXT, 1025, strCaption           '向系统发送获得的“edit”栏中字符串的命令

    strCaption = Split(strCaption, Chr(0))(0)         '根据   默认文件名   长度得到   默认文件名   值

    txt = strCaption

    SendKeys "d:\" & txt, True                                                     '输入文件名

    SendKeys "%(s)", True         '         '保存

    SendKeys "%(y)", True         '         '替换

    MsgBox "您的文件已经保存!"

    End Sub

    展开全文
  • 摘要:VB源码,网络相关,源代码查看器 网页源代码查看器VB源码下载,原创作者:骑木马的哥哥。可以获取网站代码,并可以保存txt和html。。。菜鸟程序,有需要的拿去参考吧!用到了网络连接建立及读取内容、清空变量...
  • vb生成Vista风格窗口的控件,具有透明效果的VB窗体控件,想当漂亮的窗体风格,99%的... 过些天把代码贴出来,这里人气还是严重不足埃。。。。  接下来开始研究怎么在上面显示控件...目前比较好的方法是用2个窗体....
  • 使用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文件。
    在这里插入图片描述

    展开全文
  • 最后实现,运行当前宏命令save,会将当前文件夹所以doc格式的文件另存为当前文件夹下的名字1的文件夹下(会自动在当前文件夹下生成名字1的文件夹保存新文件) Sub save() Dim path As String Dim ...
  • 编辑文件程序在本窗体范围内进行捕捉鼠标的位置,打开txt文件,修改性,另存为等功能。(VB6.0源代码编写)
  • 工作表单元格区域另存为图片

    千次阅读 2019-04-25 00:14:56
    实例需求:工作表中的表格内容(A1:C8)另存为图片。 这个很难吗?确实不难。一定要用VBA吗?不一定呦。先来看看如下操作,在工作表中选中相应的单元格区域,依次点击【开始】选项卡的【复制】下拉按钮->【复制...
  • EXcelVBA另存工作簿之后删除按钮及宏代码
  • 代码 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...
  • VB实现将多张图片保存AVI 用VB实现录屏所需要VB代码VB实现合成视频所需的 VB屏幕录制所需源码实例
  • 基于vb的一个简单的多文档文本编辑器一个简单的多文档文本编辑器
  • Function 文件类型csv另存为xlsx() '请记得先改一下路径,做好备份,最好不要另存为原路径 'ActiveWorkbook.SaveAs Filename:=Replace(ActiveWorkbook.Path, "新数据", "新数据-新") & "/" & Replace...
  • 内容索引:VB源码,网络相关,网页照相机,抓屏 VB版网页照相机,可以抓取整个网页,并保存图像,也可以另存为BMP格式,或者只将其保存到系统剪贴板。运行测试时,输入网站,要等待一会才能将其正确保存,否则可能会是...
  • 其提供的 GetFileBox 方法可用来打开文件对话框(或者另存为对话框)。 CorelScriptTools CorelScriptTools 是Corel官方提供的一个脚本工具,可以用来执行很多有用的操作。比如 GetFileBox 方法就可以用来...
  • 代码,查找替换的要求是一个船体控制另一个窗体,
  • 用VBA将xml格式的excel另存为xlsx

    千次阅读 2019-06-15 01:46:26
    需要将从数据库提取的数据交给用户,由于数据量较大(好几十万行),若导出有固定分隔符的文本文件给用户,一来体验上不太好,二来若文本字符和分隔符号相同可能会出问题。于是想导出Excel,若行数超出Excel行数...
  • 另存为xlsx文件的具体步骤 按Alt+F11,打开VBA编辑器,在代码窗口中粘贴下列代码代码大同小异。 1、保存全部表格,不保留分表格式 Sub 复制() Dim Sh As Worksheet Dim wb As Workbook Dim cPath$, cFile$,...
  • 版权声明:本文博主原创文章,转载请在显著位置标明本文出处以及作者网名,未经作者允许不得用于商业目的。 如果是一般的打开某个Excel文件修改后保存到原文件或者新的文件,在 Excel.Application.Quit() 前直接...
  • 本节课程开始,我们一起来学习VB编程中的一个重要元素——菜单栏的设计。菜单栏是VB中一个重要内容,作为可视化编程,合理的设计菜单栏,可以极大的方便用户使用,让用户快速选择所需的各项功能,提升用户体验。下面...
  • 代码实现的是从一个工作簿中单独保存其中一个工作表,并以单元格数据命名新工作簿名称
  • VB6.0处理WPS个人免费版代码

    千次阅读 2020-04-25 12:49:23
    VB6.0处理WPS个人免费版代码 关键字: VB6.0控制WPS个人版 VB6.0写入WPS VB处理WPS表格 VB6.0操作WPS个人版 网上搜索了很久VB6.0操作WPS的问题,介绍不过,测试以下代码可以实现WPS2019个人免费版(不含VBA组件)的处理...
  • 1、首先下载安装VBA安装包,确保WPS能够使用宏。...模块,粘贴如下代码 Sub SaveSheetAsWorkbook() Dim sht As Worksheet For Each sht In Sheets sht.Copy theName = ThisWorkbook.Path & "\" &.

空空如也

空空如也

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

vb另存为的代码