So öffnen Sie eine Datei mit dem Öffnen-Datei-Dialog

Ich habe über das Web nach einer Lösung zum Öffnen von Dateien mit dem Öffnen-Datei-Dialog in VBScript gesucht. Kann mir jemand auf die richtige Spur zeigen?So öffnen Sie eine Datei mit dem Öffnen-Datei-Dialog

Mein Code unten öffnet Excel-Datei, aber ich wollte es dynamischer in Bezug darauf, dass der Name der Eingabedatei geändert werden kann und nicht fest codiert.

Set objExcel = CreateObject("Excel.Application") 
objExcel.DisplayAlerts = 0 
Set objShell = WScript.CreateObject("WScript.Shell") 
path = objShell.CurrentDirectory 
inFileName = "InputFile.xlsx" 
inFilePath = path + "\" + inFileName 

'Open target workbook 
Set objWorkbook1 = objExcel.Workbooks.Open(inFilePath, False, True) 
MsgBox "Reading Data from " & inFileName & vbNewLine, vbOkOnly + vbInformation, _ 
     "Reading Data"

Quelle

2016-08-24 Alvin Gasta

haben einen Blick auf diese [Antwort] (http://stackoverflow.com/a/21565999/3802503), könnten Sie –

Hallo Karthikeyan helfen! Vielen Dank für Ihre Antwort. Ich war in der Lage, den Code in der Verbindung zu verwenden, die Sie zur Verfügung stellen, aber ich suche nach einem mehr vb definitiven, der nativ ist, um Dateidialog zu übertreffen. –

Im Zweifelsfall die documentation lesen.

Set dialog = objExcel.FileDialog(3) 
dialog.AllowMultiSelect = True 
dialog.Show 

For Each f In dialog.SelectedItems 
    Set objWorkbook = objExcel.Workbooks.Open(f) 
    '... do stuff ... 
    objWorkbook.Close 
Next

Quelle

2016-08-24 08:07:23

Hallo Ansgar! Das ist cool, ich habe das Skript zunächst getestet und es funktioniert so, wie ich es erwartet habe. Danke für Ihre Hilfe. –

So öffnen Sie eine Datei mit dem Öffnen-Datei-Dialog

Antwort

Verwandte Themen