1
msアクセス2013には、wbContentという名前のWebブラウザコントロールを含むユーザーフォーム(frm_viewer)があります。Webブラウザコントロールを使用してvbaにアクセスローカルのPDFファイル
次のコードを入力してローカルPDFファイルを表示しましたが、正常に機能していないようです。
コントロールのコントロールソースプロパティを同じフォーム(つまり、コントロールソース - >ベースURL - >式ビルダー - > = [MyTextbox])のテキストボックスに参照することで機能しましたが、このメソッドを使用したいと思って、私は変数を使用してその場でそれを設定することを好む。
Private Sub lblBrowse_Click()
'declare file dialog with late binding ->
Dim fDialog As Object, strPath As String
Set fDialog = Application.FileDialog(3) 'msoFilePicker
'set parameters ->
Me.wbContent.ControlSource = ""
'initializing the file dialog ->
With fDialog
.AllowMultiSelect = False
.Filters.Clear '
.title = "Please select a file..."
'display the dialog box. If the .Show method returns True
'the user picked a file. If the .Show method returns False
'the user clicked Cancel.
If .show = True Then
strPath = .SelectedItems(1)
Debug.Print "SELECTED_FILE: " & strPath
'set source property to the string containing the full path ->
Me.wbContent.ControlSource = strPath
Me.wbContent.Requery
Else
End If
End With
End Sub
誰かが自分のコードを見て、どのように正しく機能するか教えてください。
ありがとうございます!
伝説!それはうまくいった。 Webコントロールのソースプロパティは、vbaフォームの他の一般的なフォームコントロールとはかなり異なっているようです。最小限に抑えるための偽善者!再度、感謝します – tamosa