Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    LOGOUT

    A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
    Kérdés felvetése előtt olvasd el, ha még nem tetted.

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

  • #33434 Agostino addikt
    Új Válasz #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

Hirdetés