Utilizing the File Dialog Object and Dialogs Collections in Hindi
Makhanlal Chaturvedi University / BCA / VBA programming
Utilizing the File Dialog Object and Dialogs Collections in Hindi
Utilizing the File Dialog Object and Dialogs Collections in Hindi
Introduction to File Dialog Object in Hindi
File Dialog Object рдХрд╛ рдЙрдкрдпреЛрдЧ Microsoft Office Applications рдЬреИрд╕реЗ Excel, Word, рдЖрджрд┐ рдореЗрдВ user рд╕реЗ рдХреЛрдИ file select рдХрд░рд╡рд╛рдиреЗ рдпрд╛ save рдХрд░рд╡рд╛рдиреЗ рдХреЗ рд▓рд┐рдП рдХрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИред рдпрд╣ object рд╣рдореЗрдВ рдПрдХ рдРрд╕рд╛ dialog box рдкреНрд░рджрд╛рди рдХрд░рддрд╛ рд╣реИ рдЬрд┐рд╕рд╕реЗ рд╣рдо files рдХреЛ рдЦреЛрд▓ рд╕рдХрддреЗ рд╣реИрдВ (Open) рдпрд╛ рдирдИ file рдХреЛ save рдХрд░ рд╕рдХрддреЗ рд╣реИрдВ (Save As)ред рдпрд╣ object user interaction рдХреЛ рдЖрд╕рд╛рди рдФрд░ рд╕реБрд░рдХреНрд╖рд┐рдд рдмрдирд╛рддрд╛ рд╣реИ, рддрд╛рдХрд┐ user рдЕрдкрдиреА рдкрд╕рдВрдж рдХреА file рдЪреБрди рд╕рдХреЗред
FileDialog object рдХреЛ рд╣рдо VBA (Visual Basic for Applications) рдореЗрдВ Application.FileDialog
рдХреЗ рдорд╛рдзреНрдпрдо рд╕реЗ access рдХрд░рддреЗ рд╣реИрдВред рдпрд╣ object рдХрдИ рдкреНрд░рдХрд╛рд░ рдХреЗ dialog рдкреНрд░рджрд╛рди рдХрд░рддрд╛ рд╣реИ, рдЬреИрд╕реЗ:
- msoFileDialogOpen тАУ рдХрд┐рд╕реА file рдХреЛ open рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдПред
- msoFileDialogSaveAs тАУ file рдХреЛ save рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдПред
- msoFileDialogFilePicker тАУ рдХреЗрд╡рд▓ file select рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдПред
- msoFileDialogFolderPicker тАУ folder select рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдПред
рдЗрди рд╕рдмрдХрд╛ рдЙрдкрдпреЛрдЧ situation рдХреЗ рдЕрдиреБрд╕рд╛рд░ рд╣реЛрддрд╛ рд╣реИред рдЕрдм рд╣рдо рдЗрдиреНрд╣реЗрдВ рд╡рд┐рд╕реНрддрд╛рд░ рд╕реЗ рд╕рдордЭреЗрдВрдЧреЗред
Using Open and Save File Dialogs in Hindi
-
Open Dialog: рдЗрд╕ dialog box рдХрд╛ рдЙрдкрдпреЛрдЧ рддрдм рдХрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИ рдЬрдм user рд╕реЗ рдХреЛрдИ file open рдХрд░рд╡рд╛рдиреА рд╣реЛред рдЙрджрд╛рд╣рд░рдг рдХреЗ рд▓рд┐рдП, рдпрджрд┐ рдЖрдкрдХреЛ рдХрд┐рд╕реА Excel Sheet рдореЗрдВ рдПрдХ рдирдИ workbook open рдХрд░рд╡рд╛рдиреА рд╣реЛ рддреЛ рдЖрдк msoFileDialogOpen рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░реЗрдВрдЧреЗред
Sub OpenFileExample() Dim fd As FileDialog Set fd = Application.FileDialog(msoFileDialogOpen) fd.AllowMultiSelect = False fd.Title = "Select a file to open" If fd.Show = -1 Then MsgBox "Selected File: " & fd.SelectedItems(1) Else MsgBox "No file selected." End If End Sub
-
Save As Dialog: рдЗрд╕ dialog box рдХрд╛ рдЙрдкрдпреЛрдЧ рддрдм рдХрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИ рдЬрдм user рд╕реЗ file рдХреЛ рдХрд┐рд╕реА рд╡рд┐рд╢реЗрд╖ рдирд╛рдо рд╕реЗ save рдХрд░рд╡рд╛рдирд╛ рд╣реЛред рдЗрд╕рдХрд╛ рдЙрдкрдпреЛрдЧ рддрдм рдХрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИ рдЬрдм user рдиреЗ рдХреБрдЫ data рддреИрдпрд╛рд░ рдХрд┐рдпрд╛ рд╣реИ рдФрд░ рд╡рд╣ рдЙрд╕реЗ рдХрд┐рд╕реА рдлрд╛рдЗрд▓ рдореЗрдВ рд╕реБрд░рдХреНрд╖рд┐рдд рдХрд░рдирд╛ рдЪрд╛рд╣рддрд╛ рд╣реИред
Sub SaveFileExample() Dim fd As FileDialog Set fd = Application.FileDialog(msoFileDialogSaveAs) fd.Title = "Save your file" If fd.Show = -1 Then MsgBox "Save As: " & fd.SelectedItems(1) Else MsgBox "Save operation cancelled." End If End Sub
Properties of File Dialog in Hindi
FileDialog object рдХреЗ рдХреБрдЫ important properties рд╣реЛрддреЗ рд╣реИрдВ рдЬрд┐рдирдХрд╛ рдЙрдкрдпреЛрдЧ рд╣рдо dialog рдХреЛ customize рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП рдХрд░рддреЗ рд╣реИрдВ:
- Title: dialog box рдХрд╛ рд╢реАрд░реНрд╖рдХ рдирд┐рд░реНрдзрд╛рд░рд┐рдд рдХрд░рддрд╛ рд╣реИред
- AllowMultiSelect: рдпрд╣ рдирд┐рд░реНрдзрд╛рд░рд┐рдд рдХрд░рддрд╛ рд╣реИ рдХрд┐ user рдПрдХ рд╕реЗ рдЕрдзрд┐рдХ files select рдХрд░ рд╕рдХрддрд╛ рд╣реИ рдпрд╛ рдирд╣реАрдВред
- Filters: рдпрд╣ option file type filter рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП рд╣реЛрддрд╛ рд╣реИ рдЬреИрд╕реЗ рдХреЗрд╡рд▓ .xlsx files рджрд┐рдЦрд╛рдирд╛ред
- InitialFileName: dialog open рд╣реЛрдиреЗ рдкрд░ рдХреМрди рд╕реА path default рджрд┐рдЦрд╛рдИ рджреЗред
Sub FileDialogWithFilters()
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogOpen)
fd.Title = "Open Excel File"
fd.AllowMultiSelect = False
fd.Filters.Clear
fd.Filters.Add "Excel Files", "*.xlsx; *.xls"
fd.InitialFileName = "C:\Users\"
If fd.Show = -1 Then
MsgBox "Selected File: " & fd.SelectedItems(1)
End If
End Sub
Managing Dialogs Collection for User Interaction in Hindi
Microsoft Office рдореЗрдВ Dialogs collection рдПрдХ predefined collection рд╣реЛрддреА рд╣реИ рдЬреЛ built-in dialog boxes рдХреЛ access рдХрд░рдиреЗ рдХреА рд╕реБрд╡рд┐рдзрд╛ рджреЗрддреА рд╣реИред рдпрд╣ collection Application.Dialogs
object рдХреЗ рдорд╛рдзреНрдпрдо рд╕реЗ access рдХреА рдЬрд╛рддреА рд╣реИред
Dialogs collection рдХрд╛ рдЙрдкрдпреЛрдЧ рддрдм рдХрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИ рдЬрдм рд╣рдореЗрдВ Office рдореЗрдВ рдореМрдЬреВрдж рдХрд┐рд╕реА default dialog рдХреЛ invoke рдХрд░рдирд╛ рд╣реЛрддрд╛ рд╣реИред рдЬреИрд╕реЗ, Save As dialog, Open dialog, Page Setup dialog рдЖрджрд┐ред
- Dialogs(xlDialogSaveAs): Save As Dialog рдЦреЛрд▓рддрд╛ рд╣реИред
- Dialogs(xlDialogOpen): File Open Dialog рдЦреЛрд▓рддрд╛ рд╣реИред
- Dialogs(xlDialogPrint): Print Dialog рдЦреЛрд▓рддрд╛ рд╣реИред
- Dialogs(xlDialogPageSetup): Page Setup dialog box рдЦреЛрд▓рддрд╛ рд╣реИред
рдЙрджрд╛рд╣рд░рдг рдХреЗ рд▓рд┐рдП рдпрджрд┐ рдЖрдк Excel рдХреА Save As dialog рдХреЛ open рдХрд░рдирд╛ рдЪрд╛рд╣рддреЗ рд╣реИрдВ рддреЛ рдЖрдк рдиреАрдЪреЗ рджрд┐рдП рдЧрдП code рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░ рд╕рдХрддреЗ рд╣реИрдВ:
Sub OpenSaveAsDialog()
Application.Dialogs(xlDialogSaveAs).Show
End Sub
рдЙрд╕реА рдкреНрд░рдХрд╛рд░ рдпрджрд┐ рдЖрдк рдХрд┐рд╕реА рднреА built-in dialog рдХреЛ Excel рдореЗрдВ call рдХрд░рдирд╛ рдЪрд╛рд╣рддреЗ рд╣реИрдВ рддреЛ Application.Dialogs()
рдХреЗ рдЕрдВрджрд░ рдЙрдЪрд┐рдд constant рдХрд╛ рдкреНрд░рдпреЛрдЧ рдХрд░рдХреЗ рдРрд╕рд╛ рдХрд┐рдпрд╛ рдЬрд╛ рд╕рдХрддрд╛ рд╣реИред рдпреЗ constants Excel рдХреЗ рд▓рд┐рдП pre-defined рд╣реЛрддреЗ рд╣реИрдВ рдЬреИрд╕реЗ xlDialogOpen, xlDialogFont рдЖрджрд┐ред
FileDialog рдФрд░ Dialogs рдореЗрдВ рдЕрдВрддрд░
рд╡рд┐рд╢реЗрд╖рддрд╛ | FileDialog | Dialogs |
---|---|---|
Customizability | рдЙрдкрдпреЛрдЧрдХрд░реНрддрд╛ рджреНрд╡рд╛рд░рд╛ customize рдХрд┐рдпрд╛ рдЬрд╛ рд╕рдХрддрд╛ рд╣реИ (Title, Filters рдЖрджрд┐) | Predefined Dialogs, customization рдХреА рд╕реАрдорд╛рдПрдВ рд╣реЛрддреА рд╣реИрдВ |
Application | VBA рдХреЗ рдЬрд╝рд░рд┐рдП рдкреВрд░рд╛ control рдорд┐рд▓рддрд╛ рд╣реИ | Excel рдХреЗ built-in dialog рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░рддрд╛ рд╣реИ |
Use Case | User interaction рдЬреИрд╕реЗ open/save file | Predefined dialogs рдХреЛ call рдХрд░рдирд╛ |
Practical Example: Load Excel File Using File Dialog
Sub LoadExcelFile()
Dim fd As FileDialog
Dim selectedFile As String
Set fd = Application.FileDialog(msoFileDialogFilePicker)
fd.Title = "Select Excel File"
fd.Filters.Clear
fd.Filters.Add "Excel Files", "*.xls; *.xlsx"
If fd.Show = -1 Then
selectedFile = fd.SelectedItems(1)
Workbooks.Open selectedFile
MsgBox "File Opened: " & selectedFile
Else
MsgBox "Operation Cancelled"
End If
End Sub
рдКрдкрд░ рджрд┐рдП рдЧрдП code рдореЗрдВ user рд╕реЗ Excel file select рдХрд░рд╡рд╛рдИ рдЬрд╛рддреА рд╣реИ рдФрд░ рдлрд┐рд░ рдЙрд╕реЗ Excel рдореЗрдВ open рдХрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИред рдпрд╣ automation tasks рдореЗрдВ рдХрд╛рдлреА рдЙрдкрдпреЛрдЧреА рд╣реЛрддрд╛ рд╣реИ рдЬрдм рдЖрдк рдХрд┐рд╕реА рд╡рд┐рд╢реЗрд╖ format рдХреА file рдХреЛ open рдХрд░рд╡рд╛рдирд╛ рдЪрд╛рд╣рддреЗ рд╣реИрдВред
рдирд┐рд╖реНрдХрд░реНрд╖ рд╕реЗ рдмрдЪрддреЗ рд╣реБрдП рдЙрдкрдпреЛрдЧреА рдмрд┐рдВрджреБ
- FileDialog рдХрд╛ рдЙрдкрдпреЛрдЧ рддрдм рдХрд░реЗрдВ рдЬрдм рдЖрдкрдХреЛ рдЕрдзрд┐рдХ control рдФрд░ customization рдХреА рдЖрд╡рд╢реНрдпрдХрддрд╛ рд╣реЛред
- Dialogs collection рддрдм рдЙрдкрдпреБрдХреНрдд рд╣реИ рдЬрдм рдЖрдк Excel рдХреЗ existing built-in dialog boxes рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░рдирд╛ рдЪрд╛рд╣рддреЗ рд╣реИрдВред
- Filters рдФрд░ Title рдЬреИрд╕реА properties FileDialog рдХреЛ рдЕрдзрд┐рдХ user friendly рдмрдирд╛рддреА рд╣реИрдВред
- Dialogs collection рдореЗрдВ рдЙрдкрд▓рдмреНрдз constants predefined рд╣реЛрддреЗ рд╣реИрдВ, рдЗрдиреНрд╣реЗрдВ рдпрд╛рдж рд░рдЦрдирд╛ рдЙрдкрдпреЛрдЧреА рд╣реЛрддрд╛ рд╣реИред
- Code рдореЗрдВ рд╣рдореЗрд╢рд╛ error checking рдХрд░реЗрдВ рдХрд┐ user рдиреЗ file select рдХреА рд╣реИ рдпрд╛ cancel рдХрд┐рдпрд╛ред
FAQs
Application.FileDialog(msoFileDialogOpen)
рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИред рдпрд╣ user рдХреЛ рдПрдХ file рдЪреБрдирдиреЗ рдХрд╛ interface рджреЗрддрд╛ рд╣реИ рдЬрд┐рд╕реЗ VBA рдореЗрдВ рдЖрдЧреЗ process рдХрд┐рдпрд╛ рдЬрд╛ рд╕рдХрддрд╛ рд╣реИред
Application.FileDialog(msoFileDialogSaveAs)
рдХрд╛ рдЙрдкрдпреЛрдЧ рд╣реЛрддрд╛ рд╣реИред рдЗрд╕рд╕реЗ user рдЕрдкрдиреА file рдХреЛ рдХрд┐рд╕реА рдирдП рдирд╛рдо рд╕реЗ save рдХрд░ рд╕рдХрддрд╛ рд╣реИред рдЗрд╕реЗ automation рдФрд░ custom saving operations рдореЗрдВ рдЙрдкрдпреЛрдЧ рдХрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИред
Application.Dialogs(xlDialogSaveAs).Show
рдЬреИрд╕реЗ syntax рдХрд╛ рдкреНрд░рдпреЛрдЧ рдХрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИред рдЗрд╕рд╕реЗ Excel рдХрд╛ built-in dialog box user рдХреЗ рд╕рд╛рдордиреЗ рдЦреБрд▓рддрд╛ рд╣реИ рдФрд░ user interaction рд╕рдВрднрд╡ рд╣реЛрддрд╛ рд╣реИред
fd.Filters.Add
рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░рдХреЗ рдЖрдк filters apply рдХрд░ рд╕рдХрддреЗ рд╣реИрдВ рдЬреИрд╕реЗ рдХрд┐ рдХреЗрд╡рд▓ Excel files (.xls, .xlsx) рджрд┐рдЦрд╛рдирд╛ред рдпрд╣ user experience рдХреЛ рдмреЗрд╣рддрд░ рдмрдирд╛рддрд╛ рд╣реИред