locked
how can i get the detail of "app.Workbooks.Open"? RRS feed

  • Question

  • how can i get the detail of "app.Workbooks.Open"?
    Sunday, September 16, 2012 3:27 AM

Answers

  • Hello burninger:

    If you get into the Visual Basic Editor, insert a module then insert a procedure, type the following:

    Application.Workbooks.Open(

    As soon as you enter the left parenthesis, the parameters will show.  You can also go to the MSDN description of the Application.Workbooks.Open:

    Workbooks Open

    At the very bottom of the code shown below, is the Workbooks.Open command.  It simply opens the workbook specified in the path and workbook name.  The code shows how to present an open file dialog box, have the user select the file, and then open the workbook.

    Option Explicit
    
    ' ************************************************
    ' Variables For File Open Dialogue Box
    ' ************************************************
    Public strDialogueFileTitle As String
    Public strFilt As String
    Public intFilterIndex As Integer
    Public strCancel As String
    Public strWorkbookNameAndPath As String
    Public strWorkbookName As String
    Public strWorksheetName As String
    
    Public Sub OpenAFile()
    Dim strWorkbookNameAndPathDemoOnly As String
    
    ' ****************************************************************************
    ' Set Up Filters For Which Files Should Show In The Open File Dialog Box
    ' ****************************************************************************
    strFilt = "Excel Files (*.xls),*.xls," & _
              "CSV Files (*.csv),*.csv,"
    
    ' ****************************************************************************
    ' Set Up The Prompt In The Dialogue Box
    ' ****************************************************************************
    intFilterIndex = 1
    strDialogueFileTitle = "Select Your Input File of Choice"
    
    ' ****************************************************************************
    ' Present the Open File Dialogue To The User
    ' ****************************************************************************
    Call OpenFileDialogue
    
    ' ****************************************************************************
    ' Notify The User If No File Was Successfully Opened
    ' ****************************************************************************
    If strCancel = "Y" Then
        MsgBox ("An Open Error Occurred Importing Your File Selection")
        Exit Sub
    End If
    
    ' ****************************************************************************
    ' Put Your Own Code Here To Check The Newly Opened Workbook
    ' A Common Practice Is To Check For A Known Header Value
    ' To Ensure That The Correct Workbook Was Opened
    ' ****************************************************************************
    
    ' ********************************************************
    ' Save The New Workbook And Worksheet Names
    ' ********************************************************
    strWorkbookName = ActiveWorkbook.Name
    strWorksheetName = ActiveSheet.Name
    
    ' ********************************************************
    ' Here's Another Way To Get the Name And Path
    ' ********************************************************
    strWorkbookNameAndPathDemoOnly = ActiveWorkbook.FullName
    
    End Sub
    
    Sub OpenFileDialogue()
    
    ' ************************************************
    ' Display a File Open Dialogue Box For The User
    ' ************************************************
    strCancel = "N"
    strWorkbookNameAndPath = Application.GetOpenFilename _
        (FileFilter:=strFilt, _
         FilterIndex:=intFilterIndex, _
         Title:=strDialogueFileTitle)
       
    ' ************************************************
    ' Exit If No File Selected
    ' ************************************************
    If strWorkbookNameAndPath = "" Then
        MsgBox ("No Filename Selected")
        strCancel = "Y"
        Exit Sub
    ElseIf strWorkbookNameAndPath = "False" Then
        MsgBox ("You Clicked The Cancel Button")
        strCancel = "Y"
        Exit Sub
    End If
    
    ' ******************************************************
    ' Now That You Have The User Selected File Name, Open It
    ' ******************************************************
    Workbooks.Open strWorkbookNameAndPath
    End Sub

    Regards,


    Rich Locus, Logicwurks, LLC

    http://www.logicwurks.com

    • Proposed as answer by Asadulla JavedEditor Monday, September 17, 2012 6:55 AM
    • Marked as answer by Leo_Gao Friday, September 21, 2012 1:50 AM
    Sunday, September 16, 2012 4:30 AM