Új hozzászólás Aktív témák

• #33434 Agostino addikt

  Új Válasz 2016-12-13 10:29:01 #33434

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Agostino

  addikt

  sziasztok

  ki akarom bővíteni a makromat, hogy az adott munkafüzet adott oszlopait / celláit exportálja csak ki csv-be. makrom jelenleg ez és amíg a ranget nem definiálom, jól is működik

  Sub export_first()

Application.DisplayAlerts = False

Dim wb As Workbook, InitFileName As String, fileSaveName As String

InitFileName = ThisWorkbook.Path & "\Kimentett munkafüzet_" & Format(Date, "yyyymmdd")

Sheets("Munkafüzetem").Copy

Set wb = ActiveWorkbook

fileSaveName = Application.GetSaveAsFilename(InitialFileName:=InitFileName, _
fileFilter:="Pontosvesszővel tagolt CSV file (*.csv), *.csv")

With wb
If fileSaveName <> "False" Then

.SaveAs fileSaveName, FileFormat:=xlCSV, Local:=True
.Close
Else
.Close False
Exit Sub
End If
End With

End Sub

  amint azonban itt definiálom a helyet

  Sheets("Munkafüzetem").Range("A1:Y1").Copy

  az egész excel összeesik és minden munkafüzetlap bezárul. rossz helyen akarom definiálni? : S

Új hozzászólás Aktív témák