excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: VBA import
MS Excel
Téma: VBA import 
Zaslal/a hans66 1.12.2020 13:52
Ahoj, mám excel, kde pokaždé musím jít na zalozku - vyvojar - import a importovat XML soubor. Je možné to udelat i přes vba? abych si rovnou vyvolal otevření pruzkumniku a vybral xml soubor? napr. mit v listu tlacitko IMPORT 
Tak si dejte tlačítko Import XML do panelu nástrojů "Rychlý přístup"citovat
Dobrý den,
nevím, zda je aktuální, ale dnes jsem řešil stejný problém mimo tlačítko import XML. Našel jsem tento kód, třeba se bude hodit.
Sub Import_XML_Dat()
Application.ScreenUpdating = False
Dim TargetSheet As Worksheet
Dim ChooseFIle As Variant
Dim TargetCellAddress As String
TargetCellAddress = Worksheets("List1").Range("A1")
' Nahraje data do List1
Set TargetSheet = ThisWorkbook.Sheets("List1")
TargetSheet.UsedRange.Clear
ChooseFIle = Application.GetOpenFilename("XML File (*.xml), *.xml", , False)
If ChooseFIle = vbNullString Then Exit Sub
ThisWorkbook.XmlImport Url:=ChooseFIle, ImportMap:=Nothing, Overwrite:=True, Destination:=TargetSheet.Range("A1")
Set TargetSheet = Nothing
Application.ScreenUpdating = True
End Subcitovat
nevím, zda je aktuální, ale dnes jsem řešil stejný problém mimo tlačítko import XML. Našel jsem tento kód, třeba se bude hodit.
Sub Import_XML_Dat()
Application.ScreenUpdating = False
Dim TargetSheet As Worksheet
Dim ChooseFIle As Variant
Dim TargetCellAddress As String
TargetCellAddress = Worksheets("List1").Range("A1")
' Nahraje data do List1
Set TargetSheet = ThisWorkbook.Sheets("List1")
TargetSheet.UsedRange.Clear
ChooseFIle = Application.GetOpenFilename("XML File (*.xml), *.xml", , False)
If ChooseFIle = vbNullString Then Exit Sub
ThisWorkbook.XmlImport Url:=ChooseFIle, ImportMap:=Nothing, Overwrite:=True, Destination:=TargetSheet.Range("A1")
Set TargetSheet = Nothing
Application.ScreenUpdating = True
End Subcitovat
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Aktivní diskuse
Vynásobit hodnoty kurzem - Power Query
Alfan • 24.4. 16:32
Relativní cesta - zdroje Power Query
Alfan • 24.4. 15:44
Relativní cesta - zdroje Power Query
elninoslov • 24.4. 14:26
Jak odstraním duplicitní údaje
Mirek8 • 24.4. 12:13
Jak odstraním duplicitní údaje
elninoslov • 24.4. 8:57
Vyhledej
PavDD • 24.4. 8:56
Vyhledej
elninoslov • 24.4. 8:47
RSS nejnovější články