Access VBA

Hej Niels,

Vil det sige at du vil åbne et excel ark - uden at åbne excel ? Eller har jeg misforstået noget ?


Horus

Option Compare Database
Option Explicit

Private Type OPENFILENAME
    lStructSize As Long
    hwndOwner As Long
    hInstance As Long
    lpstrFilter As String
    lpstrCustomFilter As String
    nMaxCustFilter As Long
    nFilterIndex As Long
    lpstrFile As String
    nMaxFile As Long
    lpstrFileTitle As String
    nMaxFileTitle As Long
    lpstrInitialDir As String
    lpstrTitle As String
    Flags As Long
    nFileOffset As Integer
    nFileExtension As Integer
    lpstrDefExt As String
    lCustData As Long
    lpfnHook As Long
    lpTemplateName As String
End Type

Declare Function GetOpenFileName Lib \"comdlg32.dll\" Alias \"GetOpenFileNameA\" (pOpenfilename As OPENFILENAME) As Long



Function SelectExcelDoc() As String
\' Opens the Open dialog with default values.

    Dim msaof As OPENFILENAME
    Dim intRet As Integer
    Dim strRet As String
      \'initialize sensible fields of OPENFILENAME
  With msaof
      .lStructSize = Len(msaof)
      .lpstrTitle = \"Select Excel File\"
      .lpstrFilter = \"Excel Files\" & vbNullChar & \"*.xl*\" & vbNullChar & vbNullChar
      .lpstrFile = String$(255, 0)
      .nMaxFile = 255
  End With

   
    intRet = GetOpenFileName(msaof)
    If intRet Then
        strRet = Mid(msaof.lpstrFile, 1, InStr(msaof.lpstrFile, Chr(0)) - 1)
    End If
   
    SelectExcelDoc = strRet
End Function

\' Removes any instances of \'c\' in the end of source-string \'i\'
Function TrimAnyChar(i As String, c As String) As String
    While Right(i, 1) = c
        i = Mid(i, 1, Len(i) - 1)
    Wend
    TrimAnyChar = i
End Function


Sub test()
    MsgBox SelectExcelDoc()
    MsgBox SimpleGetOpenFileName()
End Sub


prøv at lege med denne

Horus -> Den virker fint min funktion, den åbner et regneark og henter sti og filnavn, hvorefter excel lukkes.
privaten -> Det ser indviklet (sjovt) ud. Jeg vender tilbage.

Niels

Privaten -> Det fungere fint, og jeg kan godt se at det er den rigtige måde at gøre det på. Men hvordan ved man at GetOpenFileName funktionen er i comdlg32.dll og hvilke argumenter den tager. Er der et websted man kan søge på ?????

Tak for hjælpen