VBa

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

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

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

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

copy

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

您需要包括文件扩展名..
试试这个：

copy

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

发表回复

精选推荐

浏览过的版块