Ako dostať názov súboru do premennej typu String ? :? – Visual Basic – Fórum – Programujte.com

Zdarec!

M?m tak? ot?zo?ku. Potreboval by som do progr?mku dosta? n?zov a cestu s?boru s ktor?m sa bude pracova?. Progr?mek by mal z nejak?ho excelovsk?ho file-u ktor? si u??vate? n?jde pomocou tla??tka "Browse" vytiahnu? pod?a zadan?ch parametrov nejak? data a nakop?rova? ich do wordovsk?ho dokumentu. Chcel by som tento progr?mek vlo?i? do wordovsk?ho dokumentu ako macro.
Neviem ak? dial?g pou?i? a ako z?ska? t? cestu od vybran?ho s?boru. :((
D?k za ak?ko?vek n?pady. :?

makra sem nikdy n?jak nepsal ale pokud m?? p??stup ke komponent? commondialog tak je to jasdn? ?e?en?. V des?t? lekci sem o n?m psal

Nevím, jestli ti to pomůže: ve Wordu funguje:
strNazev=Activedocument.Name
strCesta=Activedocument.Path

a v excelu by mělo fungovat:

strNazev=ActiveWorkbook.Name
strCesta=ActiveWorkbook.Path

Použij API

       Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias _

         "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long



       Private Type OPENFILENAME

         lStructSize As Long

         hwndOwner 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



       Private Sub cb_save_Click()

         Dim OpenFile As OPENFILENAME

         Dim lReturn As Long

         Dim sFilter As String

         OpenFile.lStructSize = Len(OpenFile)

         OpenFile.hwndOwner = Me.hwnd

         sFilter = "XLS soubory (*.XLSt)" & Chr(0) & "*.XLS" & Chr(0)

         OpenFile.lpstrFilter = sFilter

         OpenFile.nFilterIndex = 1

         OpenFile.lpstrFile = String(257, 0)

         OpenFile.nMaxFile = Len(OpenFile.lpstrFile) - 1

         OpenFile.lpstrFileTitle = OpenFile.lpstrFile

         OpenFile.nMaxFileTitle = OpenFile.nMaxFile

         OpenFile.lpstrInitialDir = "C:"

         OpenFile.lpstrTitle = "Otevřít soubor"

         OpenFile.flags = 0

         lReturn = GetOpenFileName(OpenFile)

         If lReturn = 0 Then

            'stiskl jsem cancel

         Else

            MsgBox ("Vybraný soubor je:" & Trim(OpenFile.lpstrFile))

         End If

       End Sub

to maty:
myslíš, že to makro zkousne i API?

A makro je jako podle tebe co??? Není to náhodou VBA??
A VBA je co??? :)) :))

Já jsem se jen ptal. S makry jsem nikdy nedělal, ani s VBA.