社区 › VB › VBa

krampaul82 发表于 2010-6-7 14:17:20

VBa

如何从Visual Basic程序打开. pdf文件？
感谢任何帮助...
**** Hidden Message *****

Keith™ 发表于 2010-6-7 15:18:34

打开它作为打开adobe查看它或打开它作为打开它在VBA做些什么？
Prior是这样的:
Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpszOp As String, ByVal lpszFile As String, ByVal lpszParams As String, ByVal lpszDir As String, ByVal FsShowCmd As Long) As Long
Public Function OpenFile(ByVal FileName As String) As Long
   OpenFile = ShellExecute(0, "Open", FileName, "", "C:\", 1)
End Function

如果不了解PDF结构和/或类型库和/或处理PDF文件的类，后一种情况是不会发生的。

krampaul82 发表于 2010-6-7 15:56:05

我想按下一个命令按钮，让它打开一个adobe pdf文件进行打印

Keith™ 发表于 2010-6-7 16:01:13

嗯，这样就可以了，只需将文件名传递给函数，它就会在adobe中打开PDF

krampaul82 发表于 2010-6-7 16:42:07

使用您上面的示例，我如何将文件名传递给此函数？
（在您的方便......）

Keith™ 发表于 2010-6-7 16:48:33

OpenFile "filenamegoeshere"

就这么简单

krampaul82 发表于 2010-6-7 16:57:56

选项显式＜br＞私有声明函数ShellExecute-Lib“shell32.dll”别名“ShellExectea”（ByVal hwnd为长，ByVal lpszOp为字符串，ByVal lpszFile为字符串，ByVal lpszParams为字符串，ByVal Lps兹Dir为字符串，by val FsShowCmd为长），只要＜br＞公共函数OpenFile（ByVal文件名为字符串）为长＜br＞OpenFile=ShellExect（0，“Open”，FileName，“，“C:\ALL_pdf_Cut_Sheets\Actuators\”，1）
像这样结束函数吗
子文件_get
打开文件“ms8105a1008”
结束子文件

Keith™ 发表于 2010-6-7 17:41:56

这应该可以做到，但您可能还需要包含文件的路径。我只能建议它尝试一下

krampaul82 发表于 2010-6-8 10:14:26

没有骰子...
Option Explicit
Private Declare Function ShellExecute Lib “shell32.dll” Alias “ShellExecuteA” （ByVal hwnd As Long， ByVal lpszOp As String， ByVal lpszFile As String， ByVal lpszParams As String， ByVal lpszDir As String， ByVal FsShowCmd As Long） As Long
Public Function OpenFile（ByVal FileName As String） As Long
OpenFile = ShellExecute（0， “Open”， FileName， “”， “C：\ALL_pdf_Cut_Sheets\Actuators\”， 1）
像这样结束功能？
子file_get
打开文件“C：\ALL_pdf_Cut_Sheets\执行器\ms8105a1008”
结束子

Keith™ 发表于 2010-6-8 11:22:03

您需要包括文件扩展名..
试试这个：
Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpszOp As String, ByVal lpszFile As String, ByVal lpszParams As String, ByVal lpszDir As String, ByVal FsShowCmd As Long) As Long
Public Function OpenFile(ByVal FileName As String) As Long
   OpenFile = ShellExecute(0, "Open", FileName, "", "C:\ALL_pdf_Cut_Sheets\Actuators\", 1)
End Function
Sub file_get()
   OpenFile "C:\ALL_pdf_Cut_Sheets\Actuators\ms8105a1008.pdf"
End Sub

在你的表单中，使按钮调用的点击事件的操作file_get

查看完整版本: VBa