vba+获取+pdf的目录
作者&投稿:宥肢 (若有异议请与网页底部的电邮联系)
贝谢13382356051问: 怎么用VBA代码获取文件所在地址? - ?
涟水县欣奇回答: 返回应用程序完整路径 Application.Path 返回当前工作薄的路径 ThisWorkbook.Path 返回当前默认文件路径: Application.DefaultFilePath Application.ActiveWorkbook.Path 只返回路径 Application.ActiveWorkbook.FullName 返回路径及工作簿文件名 Application.ActiveWorkbook.Name 返回工作簿文件名
贝谢13382356051问: 如何通过VBA,获得本文件所在的文件夹路径. - ?
涟水县欣奇回答: Private Sub UserForm_Click()Image1.Picture = LoadPicture(ActiveWorkbook.Path \001.jpg")End Sub...
贝谢13382356051问: VBA 打开PDF文件 - ?
涟水县欣奇回答: 1 2 3 4SubVBA打开PDF文件_芐雨()CreateObject("Wscript.Shell").Run ("pdf文件路径+名称")' 如:CreateObject("Wscript.Shell").Run ("F:\pdf\ABC.pdf") EndSub
贝谢13382356051问: vba大神可以将excel设置成 每当我关闭表格时,将会自动打印成pdf文件,保存路径和保存文件名是名字+时间 - ?
涟水县欣奇回答: 打开vba,双击左侧thisworkbook,在弹出的窗口中输入以下内容:'代码开始 Private Sub workbook_BeforeClose(Cancel As Boolean) Dim SavePath As String SavePath = "name" & Date & Time() & ".pdf" SavePath = Replace(SavePath, "/...
贝谢13382356051问: excel vba 自动打印pdf到指定路径,并以保存时间命名. - ?
涟水县欣奇回答: Sub Macro1() 'If MsgBox("是否确定要保存为PDF", vbOKCancel) = vbOK ThenActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _"D:\" & Format(Now(), "yyyymmdd-hhmmss") & ".pdf" End If End Sub
贝谢13382356051问: 如何使用VBA 将Access报表保存为指定文件名的PDF文件(自动命名pdf文件名)? - ?
涟水县欣奇回答: 如果是Access2010, 可按以下类似语句输出:DoCmd.OutputTo acOutputReport, "报表名", acFormatPDF, "pdf文件名", True 如果是Access2003,请参见这篇文章:http://blog.csdn.net/fangxinggood/article/details/599045
贝谢13382356051问: VBA获取指定格式的文件路径 - ?
涟水县欣奇回答: 文件 = Dir(ThisWorkbook.Path & "\*.*") Do While 文件 <> ""If InStr(文件, ".xlsm") > 0 Or InStr(文件, ".txt") > 0 Theni = i + 1Cells(i , "A").Value = ThisWorkbook.Path & "\" & 文件Else文件 = Dir Loop
贝谢13382356051问: vb 怎么用dir函数得到指定目录下的所有文件名?
涟水县欣奇回答: 首先在窗体上添加一个列表框List1,它用来显示文件名,以"D:\123"这个文件夹为例子,程序如下,只需将路径换为你需要的路径即可,Private Sub Form_Load() Dim fname As String Dim student As String Dim folderName As String ...
贝谢13382356051问: vba代码如何取得文件路径 - ?
涟水县欣奇回答: 可以用ActiveWorkbook.Path来取得保存到一个变量(字符串变量)中,后面用到时调用该变量即可
贝谢13382356051问: vb查找文件并获取文件路径 - ?
涟水县欣奇回答: Dir 函数示例:Dim MyFile, MyPath, MyName' 返回“WIN.INI” (如果该文件存在). MyFile = Dir("C:\WINDOWS\WIN.ini")' 返回带指定扩展名的文件名.如果超过一个 *.ini 文件存在, ' 函数将返回按条件第一个找到的文件名. MyFile = ...