VBA参照し、私はそれは私がそれがする必要があるセルに追加するために取得することができた

Private Sub bBrowse_Click() 

    Const msoFileDialogFilePicker As Long = 3 
Dim objDialog As Object 

Set objDialog = Application.FileDialog(msoFileDialogFilePicker) 

With objDialog 
    .AllowMultiSelect = True 
    .Show 
    If .SelectedItems.Count = 0 Then 
     MsgBox "No file selected." 
    Else 
     Me.[File Link].Value = Dir(.SelectedItems(1)) 
    End If 
End With 

End Sub

を選択しますが、それがクリックされたとき、それはファイルやパスVBA参照し、私はそれは私がそれがする必要があるセルに追加するために取得することができた

出典

2017-12-02 Daniel K

https://stackoverflow.com/questions/9476268/filedialog-doesnt-work?answertab=oldest#comment17467925_9476268私はこのコードを使用していますが、私は、ファイルへの完全なパスを追加する必要があります –

[質問] - あなたがしたいことと、正確には動作しないものについて説明してください。 – Andre

こんにちはAndre、私は共有ドライブにファイルをリンクしようとしています。一度レコードに追加されます。別の人がリンクをクリックしてファイルを開くことができます。私は通って来るアイテムの量のために添付ファイルを使用することはできません。それは現時点でファイル名を示していますが、私はそれを開くことができません。私はそれがパスではなくファイル名だけを追加していると思う。 –

を開くことができません。このお読みください：Debugging VBA Code
をコードをステップ実行して変数を検査する方法を学習します。

.SelectedItems(1)にはすでにフルパスが含まれていますが、Dir(.SelectedItems(1))はファイル名のみを返します。そのため、Dir()を削除してください。

実際にレコードからファイルを開くには、追加コードが必要です。 File Linkテキストボックスの横にあるボタン、またはそのDblClickイベントに挿入します。

はこちらをご覧ください：Open Hyperlinks in Access

出典

2017-12-03 09:02:32 Andre

VBA参照し、私はそれは私がそれがする必要があるセルに追加するために取得することができた

答えて

関連する問題