+- انجمن وب سایت مشاوره در زمینه پروژه های برنامه نویسی و طراحی وب سایتهای تجاری (http://forum.a00b.com)
+-- انجمن: سوالها و مقاله های آموزشی (/forumdisplay.php?fid=1)
+--- انجمن: مقاله های آموزشی (/forumdisplay.php?fid=3)
+--- موضوع: نحوه ایجاد open dialog box برای خواندن فایل در اکسس VBA (/showthread.php?tid=197)
نحوه ایجاد open dialog box برای خواندن فایل در اکسس VBA - ali - 10-07-2018 07:45 PM
کد:
Dim fDialog As Object
Set fDialog = Application.FileDialog(3)
Dim varFile As Variant
With fDialog
.AllowMultiSelect = False
.Title = "Select File Location to Export XLSx :"
.InitialFileName = "jeffatwood.xlsx"
If .Show = True Then
For Each varFile In .SelectedItems
getFileName = varFile
Next
End If
End With