精华内容
下载资源
问答
  • 总结很详细 VB CommonDialog另存文件用法
  • 使用vb按指定路径及文件名将EXCEL另存为横版PDF等格式
  • VB6.0将数据保存为TXT文件,源代码编写
  • 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

    展开全文
  • EXcelVBA另存之后删除按钮及宏代码
  • 公司各种系统需要各式各样的导入模板,需要快速的制作模板另存为特定的工作簿,工作簿的命名要求一定的格式:年月日时分+区分标识。 在vb中array() 函数用于创建数组,表示返回一个包含数组的 Variant。在vb中array...
  • vb.net制作的简单的保存文件对话框,可以把自己想保存的东西保存到已制作的项目里面。
  • Function 文件类型csv另存为xlsx() '请记得先改一下路径,做好备份,最好不要另存为原路径 'ActiveWorkbook.SaveAs Filename:=Replace(ActiveWorkbook.Path, "新数据", "新数据-新") & "/" & Replace...
    Function 文件类型csv另存为xlsx()
        '请记得先改一下路径,做好备份,最好不要另存为原路径
        'ActiveWorkbook.SaveAs Filename:=Replace(ActiveWorkbook.Path, "新数据", "新数据-新") & "/" & Replace(ActiveWorkbook.name, "csv", "xlsx"), FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
        
        '这里是原路径,如果非要存原路径,也行,就用下面这行代码,把上面的注释掉
        ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Path & "/" & Replace(ActiveWorkbook.name, "csv", "xlsx"), FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    End Function
    
    Sub VBA打开文件夹内所有Excel表格_升级版_采用用户点选文件夹路径_而无须修改源代码()
        Dim myPath$, myFile$, WB As Workbook    '这个$ 是相当于定义字符串
        '调用函数,获取用户选择的文件夹,并且在最后加上一个反斜杠,用于下面的文件列表获取
        myPath = ChooseFolder & "\"
        myFile = Dir(myPath & "*.*") '依次找寻指定路径中所有文件(所以文件夹里里面不要乱放其他文件)
        Do While myFile <> "" '当指定路径中有文件时进行循环
            If myFile <> ThisWorkbook.name Then '如果我们这个宏文件在需要处理的文件夹之中,这个判断就会跳过下面的操作
                Set WB = Workbooks.Open(myPath & myFile) '打开符合要求的文件
                Call 文件类型csv另存为xlsx
                WB.Close 0  '不保存文件直接关闭
            End If
            myFile = Dir '找寻下一个*.xls,或者xlsx文件
            Loop
            Set WB = Nothing    '释放变量内存
    End Sub
    
    Public Function ChooseFolder() As String
                '定义并新建一个对话框对象
                Dim dlgOpen As FileDialog
                Set dlgOpen = Application.FileDialog(msoFileDialogFolderPicker)
                '如果当前没有对话框显示,就让他弹出对话框
                If dlgOpen.Show = -1 Then ChooseFolder = dlgOpen.SelectedItems(1)
                Set dlgOpen = Nothing
    End Function
       
    

    展开全文
  • 使用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文件。
    在这里插入图片描述

    展开全文
  • 如果是一般的打开某个Excel文件修改后保存到原文件或者新的文件,在 Excel.Application.Quit() 前直接使用 Workbook.Save() 或 Workbook.SaveAs(文件名称) 就可以了。 但是对于要把数据(并非通过打开Excel文件获得...

    版权声明:本文为博主原创文章,转载请在显著位置标明本文出处以及作者网名,未经作者允许不得用于商业目的。

    如果是一般的打开某个Excel文件修改后保存到原文件或者新的文件,在 Excel.Application.Quit() 前直接使用
    Workbook.Save() 或 Workbook.SaveAs(文件名称) 就可以了。
    但是对于要把数据(并非通过打开Excel文件获得的数据)保存成Excel文件,那么可以按照以下步骤:
    1、新建了一个Application对象:
    Dim xls As New Excel.Application
    2、新建工作簿并添加到创建的Application对象:
            Dim Wbook As Excel.Workbook
            Wbook = xls.Workbooks.Add
    3、  使用原有的工作表,一般默认创建Wbook后会有sheet1、sheet2、sheet3三个工作表,可以使用上一节方法指定一个工作表写数据。
    或者新建工作表:
           Dim Wsheet As Excel.Worksheet
            Wsheet = Wbook.Worksheets.Add
    并按需要指定工作表名称,如不指定,那么新工作表默认名称为 Sheet4:
            Wsheet.Name = "电脑销售表"
    4、读取现有数据并写入单元格,需要注意的是Excel单元格的起始序号为1,而一般vb.net中数组等的起始序号为0:
            Wsheet.Cells(i行号,列号).value = "值"
    5、保存工作簿
           Workbook.SaveAs(文件名称)
    6、最后,别忘了关闭打开的 Excel:
           Excel.Application.Quit()
    具体代码如下:

        '另存为
        Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
            Dim filename As String
            Dim sfd As New SaveFileDialog()
            sfd.Filter = "表格文件|*.xls;*.xlsx"
            If sfd.ShowDialog <> DialogResult.OK Then
                Exit Sub
            Else
                filename = sfd.FileName
            End If
    
            Dim xls As New Excel.Application
            Dim Wbook As Excel.Workbook
            Wbook = xls.Workbooks.Add
    
            Dim Wsheet As Excel.Worksheet
            Wsheet = Wbook.Worksheets.Add
            Wsheet.Name = "电脑销售表"
    
            If lvExcel.Columns.Count > 1 Then
                For i As Integer = 0 To lvExcel.Columns.Count - 1
                    Wsheet.Cells(1, i + 1).value = lvExcel.Columns(i).Text
                Next
            End If
    
            If lvExcel.Items.Count > 0 Then
                For i As Integer = 0 To lvExcel.Items.Count - 1
                    Dim pos As Integer = 0
                    For Each subLvText As ListViewItem.ListViewSubItem In lvExcel.Items(i).SubItems
                        pos += 1
                        If subLvText.Text = "(空)" Then
                            Wsheet.Cells(i + 2, pos).value = ""     '+2是因为excel表格第一行从1开始,而表头已经占了第一行,所以写入的数据从第2行开始。
                        Else
                            Wsheet.Cells(i + 2, pos).value = subLvText.Text
                        End If
                    Next
                Next
            End If
    
            Wbook.SaveAs(filename)
            xls.Quit()
    
            MessageBox.Show("保存完毕")
        End Sub

    保存的Excel文件如图:

     

    由于.net平台下C#和vb.NET很相似,本文也可以为C#爱好者提供参考。

    学习更多vb.net知识,请参看 vb.net 教程 目录

    展开全文
  • 代码 '--------------------'类模块:FSO'SielnceNet@qq.Com'时间:2008-7-415:57:53'说明:打开/保存任意编码格式的文本文件'--------------------OptionExplicitPrivateFileBodyAsString'文件内容...
  • 本文介绍在 CorelDRAW VBA中使用官方原生工具 CorelScriptTools 调用文件对话框,选择文件并获得文件路径的VBA代码。其提供的 GetFileBox 方法可用来打开文件对话框(或者另存为对话框)。 CorelScriptTools ...
  • VB6生成Word文件

    千次阅读 2019-07-12 09:53:08
    '生成Word文件,先VBE工具-引用-micorsoft word Dim wdApp As Word.Application Dim wdDoc As Word.Document Set wdApp = New Word.Application Set wdDoc = Documents.Add Dim mySelection As Word.Selection ...
  • 摘要:VB源码,网络相关,源代码查看器 网页源代码查看器VB源码下载,原创作者:骑木马的哥哥。可以获取网站代码,并可以保存为txt和html。。。菜鸟程序,有需要的拿去参考吧!用到了网络连接建立及读取内容、清空变量...
  • VB编写一个记事本,一定要用到读文本文件和保存文本文件这两个模块,这两个模块做成两个函数Private Function GetTXT(Path As String) '读取文本Open Path For Input As #1GetTXT = StrConv(InputB(LOF(1), 1), vb...
  • 这个是NI-ATM-429总线数据拼接的程序,432bit是数据位,数据不足补1,包头自己定义,循环校验和自己算,加起来512bit
  • vba另存为按钮,代码原件。可直接复制插入
  • 想要下载网页的 CSV文件 ,因为需要打开网页后,点击“SAVE AS EXCEL”的链接,出现“下载文件”的窗口,点击“保存”,出现“另存为”的窗口,修改文件的保存名称,点击保存。才算完成。在这里最重要的问题是:...
  • 1、首先下载安装VBA安装包,确保WPS能够使用宏。...模块,粘贴如下代码 Sub SaveSheetAsWorkbook() Dim sht As Worksheet For Each sht In Sheets sht.Copy theName = ThisWorkbook.Path & "\" &.
  • 编辑文件程序在本窗体范围内进行捕捉鼠标的位置,打开txt文件,修改性,另存为等功能。(VB6.0源代码编写)
  • 编辑文件程序(VB6.0代码编写) 打开txt文件,修改性,另存为等功能。 QQ223857666勾月
  • 实现DES加密解密VB代码 另存为其他文件类型
  • 利用VB操作WORD的基本方法通过查阅资料,自我实践,经实验通过。先引用word Application:Dim MyWord As Word.ApplicationDim MyWordBook As Word.DocumentSet MyWord = New Word.ApplicationSet MyWordBook =MyWord...
  • 为工具栏上的各种实现电弧图像处理的功能按钮添加相应功能的代码,实现VB对MATLAB图像处理程序的调用,对于选则某种功能按钮实现相应功能 Private Sub Command1_Click() Set matlab = CreateObject("matlab....
  • 先创建一个vbs文件, 定义如下: 代码 Dim ls_File Set objArgs = WScript.Arguments '命令行参数 ls_File = objArgs(0) '第一个参数通常就是文件名 ls_new = left(ls_File, len(ls_File) -5 )+".pdf" Set ...
  • VB多窗体退出代码

    千次阅读 2012-04-15 09:32:34
    Private Sub Form_Unload(Cancel As Integer) Dim Frm As Form For Each Frm In Forms Unload Frm Set Frm = Nothing Next End Sub ★VB部分相关文章推荐:★ ...※VB 一个获得自己外网 IP 地址的程序...
  • EXcelVBA另存工作簿之后删除按钮及宏代码
  • 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组件)的处理...
  • VB6.0 读写excel表格/dat文件并保存

    千次阅读 2017-05-03 10:18:30
    VB6.0 读写excel表格/dat文件并保存最近偶尔写了点VB - - 1.Excel读写GlobalLists: Dim xlsApp As Object Dim xlsWB1 As Object Dim xlsWS1 As ObjectForm:Private Sub writeDataToExcel() Set xlsApp = ...
  • 最后实现为,运行当前宏命令save,会将当前文件夹所以doc格式的文件另存为当前文件夹下的名字为1的文件夹下(会自动在当前文件夹下生成名字为1的文件夹保存新文件) Sub save() Dim path As String Dim ...

空空如也

空空如也

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

vb设置文件另存代码