Mám prosbičku. Je možné z excelu vytvořit na zadané cestě na disku soubor s příponou txt nebo bat a vložit do něj obsah ze zadaného sloupce?
Díky
MS Excel - vytvoření souboru *.bat
- karf
- Středně pokročilý
- Registrován: 03. čer 2003
- Bydliště: České Budějovice
- Kontaktovat uživatele:
MS Excel - vytvoření souboru *.bat
note:HP Pavilion Gaming i7 10870H, 16gb, rtx 2060, 1tb OS: MS Windows 10 Home x64
Workstation: HP Z2: Intel Core i7 8700@4.6GHZ, 32gb, Quadro P620, 512GB Samsung M2, 2x HP Z24 G2 OS: MS Windows 10Pro x64
Workstation: HP Z2: Intel Core i7 8700@4.6GHZ, 32gb, Quadro P620, 512GB Samsung M2, 2x HP Z24 G2 OS: MS Windows 10Pro x64
- S.h.I.t.
- Začátečník
-
- Registrován: 09. čer 2007
- Bydliště: Hradec Králové
Re: MS Excel - vytvoření souboru *.bat
Urcite to jde VBA skriptem, pres interni Fce excelu tusim ne.
napr https://www.extendoffice.com/documents/ ... o-text-vba
napr https://www.extendoffice.com/documents/ ... o-text-vba
- karf
- Středně pokročilý
- Registrován: 03. čer 2003
- Bydliště: České Budějovice
- Kontaktovat uživatele:
Re: MS Excel - vytvoření souboru *.bat
Našel jsem nějaké vzory, tak to podle toho chodí, akorát mi nefunguje, když mám aktivní jiný list, než na kterém jsou data a makro pustím třeba tlačítkem...přitom konkrétní list s daty je definovaný?
Kód: Vybrat vše
Sub ExportBalicekToBat()
Dim PathObo As String
Dim SCll As Range, SBlok As Range
With Worksheets("BALÍČEK")
PathObo = .Range("e9").Value
If Right(PathObo, 1) <> "\" Then PathObo = PathObo & "\"
PathObo = PathObo & .Range("e8").Value & ".bat"
Open PathObo For Output Access Write As #1
Set SBlok = .Range("a1", [a1200].End(xlUp))
For Each SCll In SBlok.Cells
Print #1, SCll.Value
Next SCll
Close #1
End With
End Sub
Sub ExportArchivToBat()
Dim PathObo As String
Dim SCll As Range, SBlok As Range
With Worksheets("SE_ARCHIV")
PathObo = .Range("e9").Value
If Right(PathObo, 1) <> "\" Then PathObo = PathObo & "\"
PathObo = PathObo & .Range("e8").Value & ".bat"
Open PathObo For Output Access Write As #1
Set SBlok = .Range("a1", [a1200].End(xlUp))
For Each SCll In SBlok.Cells
Print #1, SCll.Value
Next SCll
Close #1
End With
End Sub
note:HP Pavilion Gaming i7 10870H, 16gb, rtx 2060, 1tb OS: MS Windows 10 Home x64
Workstation: HP Z2: Intel Core i7 8700@4.6GHZ, 32gb, Quadro P620, 512GB Samsung M2, 2x HP Z24 G2 OS: MS Windows 10Pro x64
Workstation: HP Z2: Intel Core i7 8700@4.6GHZ, 32gb, Quadro P620, 512GB Samsung M2, 2x HP Z24 G2 OS: MS Windows 10Pro x64