使用vba打开文件夹，这样我就可以在Access 2016中粘贴图像.我有不工作的选择

Question

下面的代码(在一个按钮下)带我到正确的文件夹。但是!我不能粘贴图像。"Paste"选项显示，但它是灰色的。有替代"vbnormalfocus"的方法吗?这将以"非只读"方式打开文件夹。格式吗?

Dim Foldername As String
Foldername = "c:UsersJohn SmithDesktopDBFolderDBImagesPeople"
Shell "C:windowsexplorer.exe """ & Foldername & "", vbNormalFocus

还是一条完全不同的路线?这让我如此接近!!

Answer 1

可以使用Batch:

你看起来没有在复制代码中的任何东西，所以…

Dim FileNumber As Integer
Dim retVal As Variant
Dim MY_FILENAME As String
'Batch Name and location
MY_FILENAME = ThisWorkbook.Path & "" & "File.bat"
FileNumber = FreeFile
'create batch file
Open MY_FILENAME For Output As #FileNumber
Print #FileNumber, "@if (@CodeSection == @Batch) @then"
Print #FileNumber, "@echo off"
Print #FileNumber, "set Path=%~dp0"
Print #FileNumber, "copy C:UsersJohn C:UsersSandra "
Print #FileNumber, "DEL " & Chr(34) & "%~f0" & Chr(34) ' delete itself'
Print #FileNumber, "exit /b"  'exit code'
Close #FileNumber
retVal = Shell(MY_FILENAME, vbNormalFocus)