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 = ...
