انجمن وب سایت مشاوره در زمینه پروژه های برنامه نویسی و طراحی وب سایتهای تجاری
نحوه ایجاد open dialog box برای خواندن فایل در اکسس VBA - نسخه‌ی قابل چاپ

+- انجمن وب سایت مشاوره در زمینه پروژه های برنامه نویسی و طراحی وب سایتهای تجاری (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