精华内容
下载资源
问答
  • VBA 保存文件名和储存
    2021-07-08 09:46:44
    Sub 保存文件名()
    
    
        Range("A1:J20").Select        '选中区域
            
        aa = Mid(ActiveWorkbook.Name, 1, 22)    '切片文件名字符
    
        Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            "D:\excel-HONG\" & aa & ".pdf" _
            , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
            :=False, OpenAfterPublish:=False
    End Sub

    Sub 文件储存()
    '
    ' 保存
    '
        ActiveWorkbook.Save
    End Sub
    

    更多相关内容
  • 蓝字关注,加微信NZ9668获资料信息VBA解决方案 系列丛书作者头条百家平台 VBA资深创作者_______________________________分享成果,随喜真能量。大家好,今天继续和...VBA过程代码36:返回系统的当前日期Sub MyNZ...

    蓝字关注,加微信NZ9668获资料信息

     VBA解决方案   系列丛书作者 

    头条百家平台 VBA资深创作者

    _______________________________


    分享成果,随喜真能量。大家好,今天继续和大家分享 VBA编程中常用的过程代码,过程代码在这里讲解的语句非常简单单一,简单的组合起来就是一个复杂的过程,也是一个学习的过程。  VBA过程代码36:返回系统的当前日期 Sub MyNZ() Dim MyDate, MyDay MyDate = Date MyDay = Day(MyDate) MsgBox MyDay END SUB 代码的解析说明:上述代码过程在执行过程中,将弹出一个对话框提示当前的日期。其中 Date是当前的日期,含年月日,Day(MyDate)是从上述的当前日期中提出日期。最后用MsgBox弹出对话框显示这个日期。     d6615920d38c097320a5e75a04c069c2.png   VBA 过程代码 37 :返回系统的当前年份 Sub MyNZ() Dim MyDate, MyYear MyDate = Date MyYear = Year(MyDate) MsgBox MyYear END SUB 代码的解析说明:上述代码过程在执行过程中,将弹出一个对话框,提示当前的年。其中 Date是当前的日期,含年月日,Year(MyDate)是从上述的当前日期中提出年。最后用MsgBox弹出对话框显示这个年。 VBA过程代码38:返回系统的当前月份 Sub MyNZ() Dim MyDate, MyMonth MyDate = Date MyMonth = month(MyDate) MsgBox MyMonth END SUB 代码的解析说明:上述代码过程在执行过程中,将弹出一个对话框,提示当前的月。其中 Date是当前的日期,含年月日,month(MyDate)是从上述的当前日期中提出月。最后用MsgBox弹出对话框显示这个月。  47d9b8269c88447701f0aba97711fc92.png VBA 过程代码 39 : inputbox< 输入框 > Sub MyNZ() XX=InputBox ("Enter number to add!") END SUB 代码的解析说明:上述代码过程在执行过程中,将弹出一个输入对话框,提示输入的信息: "Enter number to add!" 最后用变量XX记录这个输入。   e5f67e236f0d2e80e6aed3e4b805e6f2.png VBA 过程代码 40 :得到一个文件名  Sub MyNZ() Dim kk As String kk =Application.GetOpenFilename("EXCEL (*.XLSM), *.XLSM", Title:="提示:请打开一个EXCEL文件:") msgbox kk END SUB 代码的解析说明:上述代码过程在执行过程中,将弹出一个打开的对话框,让用户选择某个文件,并用变量 KK记录这个文件名,这个文件名是包含地址的FULLNAME。注意此时的代开对话框并不是真的打开这个文件。 看板: 下面是我根据我自己20多年的VBA实际利用经验,编写的几部经验教程,全是满满的“干货”,欢迎有需要的朋友联络(WeChat:NZ9668),分享。 1 《VBA代码解决方案》是VBA中各个知识点的讲解,覆盖了绝大多数的知识点。 2 《VBA数据库解决方案》是数据处理的利器; 3 《VBA数组与字典解决方案》中讲解VBA的精华----字典。 4  面向初学及中级以下学员的视频《VBA代码解决方案》正在录制。看视频,“每天20分钟,半年精进VBA”活动正在火热进行中,越早报名,回馈越多。现在第一册48讲内容已经录制完成,第一阶段的优惠活动即将结束。

    _____________________________ 

    有启发 点在看,转给朋友  约作者 请留言,直接交流

    更多关联阅读

    0ed98b6f2cc30ba1eae2091f6d446446.png

    51052d26c03203407f19ef3696fa698d.png

    5033e5d3e2075b919f3c16476c28d33c.png

    31e77d21dc532666b39a08da38cbcef0.png

    展开全文
  • VBA】获取文件名、文件夹名

    千次阅读 2022-02-15 12:52:44
    获取文件名 Function msoFile(Optional filename) With Application.FileDialog(msoFileDialogFilePicker) .AllowMultiSelect = False .Filters.Clear .InitialFileName = filename .Filters.Add "TXT Files...

    获取文件名

    Function msoFile(Optional filename)
    
        With Application.FileDialog(msoFileDialogFilePicker)
            .AllowMultiSelect = False
            .Filters.Clear
            .InitialFileName = filename
            .Filters.Add "TXT Files", "*.csv;*.txt"
            .Filters.Add "All Files", "*.*"
            .ButtonName = "OK"
            .Show
        
            FileN = .SelectedItems(1)
            If FileN = "" Then: Exit Function
            msoFile = FileN
            
        End With
    
    End Function

    获取文件夹名

    Function msoFolder(Optional filename)
    
        With Application.FileDialog(msoFileDialogFolderPicker)
            .AllowMultiSelect = False
            .Filters.Clear
            .InitialFileName = filename
            .ButtonName = "OK"
            .Show
        
            FileN = .SelectedItems(1)
            If FileN = "" Then: Exit Function
            msoFolder = FileN
        End With
    
    End Function

    指定文件类型保存至文件夹

    Function saveFilename(Optional filename)
    
        FileN = Application.GetSaveAsFilename(filename, filefilter:="Excel Files (*.xlsm), *.xlsm")
        If FileN = "False" Then: Exit Function
        saveFilename= FileN
    
    End Function

    展开全文
  • 利用VBA批量获取文件名称并更名
  • 文章目录 读取当前文件名 读取当前文件名 Version = Left(ThisWorkbook.Name, InStr(ThisWorkbook.Name, ".") - 1) '读取的文件名除去后缀 FileKey = Version & ".xlsm" '读取的文件名加上后缀 参考地址:...

    文章目录

    读取当前文件名

        Version = Left(ThisWorkbook.Name, InStr(ThisWorkbook.Name, ".") - 1)     '读取的文件名除去后缀
        FileKey = Version & ".xlsm"     '读取的文件名加上后缀
    

    参考地址:https://docs.microsoft.com/zh-cn/office/client-developer/excel/excel-home?redirectedfrom=MSDN
    该代码仅供学习,如商业转载请联系本人,非商业转载请注明出处


    #加油#
    展开全文
  • EXCEL-VBA:EXCEL的各种文件名获取

    万次阅读 2018-12-06 14:58:38
    '文件名(不带路径) ABC.xlsx ThisWorkbook.Name '文件名不带扩展名 ABC Left(ThisWorkbook.Name, InStr(ThisWorkbook.Name, ".") - 1) '带全路径的文件名 C:\Folder\ABC.xlsx ThisWorkbook.Path &...
  • Sub tiqu() '提取文件夹下所有文件名[张志晨] '路径由浏览文件夹根据需要指定。这样灵活! Dim strFileName As String'文件名
  • 在代码中用format函数取现在的时间,VBA 的 Format 函数与工作表函数 TEXT 用法基本相同,但功能更加强大,许多格式只能用于VBA 的 Format 函数,而不能用于工作表函数 TEXT 。 Format(Now, "yyyymmddhhmm") 把...
  • If IsNumeric(VBA.Right(te1, 1)) = False Then i = InStrRev(te1, "元", -1) If i = 0 Then Push = "0" Exit Function End If End If te1 = Left(te1, i - 1) For j = 1 To 10 strTemp = VBA.Right(te1, j) ...
  • 学习Excel技术,关注微信公众号:excelperfect在《VBA进阶 | 文件操作8:认识Windows Scripting Host》中,我们介绍了FileSystem对象模型。本文详解其中的Folder对象与Folders集合。Folder对象使用Folder对象可以...
  • 从全路径文件名中获取文件名(不含路径)方法一:Public Function gf_GetFileName(strFullPath As String) As StringDim splitList As VariantsplitList = VBA.Split(strFullPath, "")gf_GetFileName = splitList...
  • '读取当前文件夹下txt文件的文件名,写入sheet1的第一列 Dim r As Long Dim Fso As Object Dim myfile As Object Dim mySheet As Worksheet Dim txtFolder As Object r = 1 Set txtFolder = CreateObject("S...
  • 需求:有时候需要批量读取某个文件夹中的文件名称,有的程序只能读取同类型的,当文件为不同类型时就无法读取,因此需要写一个VBA程序,实现批量读取同一文件夹内的所有文件名称,且不需要修改程序就可以自由选择...
  • 心得(2):如何利用VBA一键更改多个excel文件为指定的名称 问题:如何一键更改相同目录下的所有excel文件的名称,改为这个excel文件名内的每个单元格的内容,如我这个因为是要统计所有比赛队伍的信息,因为大部分人的...
  • '保存工作簿时,如何后一个名称不和前一个名称重复? '有很多种方法,通常会以时间命名,比如我们手机里的照片的名称一般都会有时间,很多地方都是。 '我们也可以这样命名,具体方法如下。 Sub 保存工作簿时命名() ...
  • Excel VBA获取选择文件的文件名称

    千次阅读 2020-10-20 10:50:20
    '打开文件对话框返回的文件名,是一个全路径文件名,其值也可能是False,因此类型为Variant Dim i As Integer File = Application.GetOpenFilename("Excel 文件,*.xls;*.xlsx;*.xlsm") '调用Windows打开文件...
  • *.xlsx", MultiSelect:=True) If UBound(fileToOpen) <> 0 Then For i = 1 To UBound(fileToOpen) filePaths = Split(fileToOpen(i), delimiter:="\") Debug.Print "打开的文件的文件名:" & filePaths(UBound...
  • 文件名 & "【" & CStr(Format(Now, "yyyy-mm-dd hh-mm-ss")) & " " & "】" 转载于:https://www.cnblogs.com/lybstudy/p/10744183.html
  • Sub get_name() Dim reg As Object Dim mc As MatchCollection Dim m As Match Set reg = CreateObject("vbscript.regexp") ActivePath = ActiveWorkbook.Name s = ActivePath p = "EPDV-[A-Z]" ...
  • 讲解VBA字符串常用函数,及在路径字符串处理的常用功能。
  • 下面脚本是进行对本目录(不含子目录)的xls文件进行打印 最大的问题自动双面无法处理。 现在解决办法是: ...3、根据https://stackoverflow.com/questions/40848751/excel-vba-printer-api-set-colou
  • Excel获取文件夹下的所有Word文件
  • 1 DIR基本功能 1.1Dir函数 ... 返回一个String,用以表示一个文件名、目录名或文件夹名称,它必须与指定的模式或文件属性、或磁盘卷标相匹配。 pathname 可选参数。用来指定文件名的字符串表达式,...
  • '依次打开当前文件夹中所有的工作簿并且向该工作簿中的工作表中写入内容后并保存 Sub OpenAndSave() Dim myPath$, myFile$, AK As Workbook Dim sh As Worksheet Dim i As Integer i = 2 Dim fname As ...
  • 大家好,我们今日讲解“VBA信息获取与处理”教程中第十七个专题“文件及文件夹信息的获取及操作”的第一节“判断文件及文件夹是否存在”,这个专题是非常实用的知识点,希望大家能掌握利用。教程会提供配套的程序...
  • VBA当前系统时间(年、月、日、时、分、秒)命名文件夹 Sub addFile() Dim resFolderChild, nowTime, afterPath '获取系统当前时间并格式化,nowTime 就是自己想要的文件夹的名字,长这样:20191121173628 ...
  • 合并多个工作表的数据。在同一个文件夹里,所有的工作簿,每个工作簿的所有工作表,合并在一起。最好是格式相同的,合并在一起,效果更加好。VBA实现,办公自动化
  • import os path = r"C:/user" #filename为user文件夹内的所有excel名称的list(包括后缀) #filename_设置一个空list,准备放不含后缀名的名称 filename = os.listdir(path) filename_ = [] for i in filename: ...
  • VBA如何获取当前EXCEL文件的路径

    万次阅读 2015-10-13 11:29:51
    返回当前工作薄的路径  ThisWorkbook.Path  返回当前默认文件路径:  Application.DefaultFilePath  Application.ActiveWorkbook.Path 只返回路径  Application.ActiveWorkbook.FullName

空空如也

空空如也

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

vba 当前文件名

友情链接: 200111100901.zip