Access: Excel exportálása CSV fájlba

Access: Excel exportálása CSV fájlba
2011-04-18T10:52:17+02:00
2011-04-18T13:06:04+02:00
2022-11-21T14:00:38+01:00
drapacs2008
Sziasztok!

Hogyan lehet ACCESS VBA-val Excelből CSV formátumot készíteni?

Segítségeteket előre is köszönöm!
Mutasd a teljes hozzászólást!
Megcsináltam, de a már az elején kiakad (sheets-nél):


Dim oex As Object Dim owb As Object Set oex = CreateObject("Excel.Application") Set owb = oex.workbooks.Add("utvonal0") Sheets("Munka2").Select ActiveWorkbook.SaveAs FileName:= _ "utvonal1", FileFormat:=xlCSV, _ CreateBackup:=False Sheets("Kivontak").Select ActiveWorkbook.SaveAs FileName:= _ "utvonal2", FileFormat:=xlCSV, _ CreateBackup:=False 'takarítás owb.Close False oex.Quit Set owb = Nothing Set oex = Nothing
Mutasd a teljes hozzászólást!

  • Ugyanúgy, ahogy Excel-búl is csinálnád. De komolyan! Excel-ben kapcsold be a makrórögzítőt, végezd el a mentés másként műveletet, állítsad le a makrórögzítőt. Ezzel meg is van a kód lényegi része: a mentés.

    Ehhez már csak a megnyitást kell hozzáadni:

    dim oex as object
    dom owb as object

    set oex=createobject("Excel.Application")
    set owb=oex.workbooks.add("megnyitandó file útvonala")
    'ide jön a rögzített kód annyiban átírva, hogy owb-t vagy annak egy munkalapját mentsed el
    ...

    'takarítás
    owb.close false
    oex.quit
    set owb=nothing
    set oex=nothing
    Mutasd a teljes hozzászólást!
  • Megcsináltam, de a már az elején kiakad (sheets-nél):


    Dim oex As Object Dim owb As Object Set oex = CreateObject("Excel.Application") Set owb = oex.workbooks.Add("utvonal0") Sheets("Munka2").Select ActiveWorkbook.SaveAs FileName:= _ "utvonal1", FileFormat:=xlCSV, _ CreateBackup:=False Sheets("Kivontak").Select ActiveWorkbook.SaveAs FileName:= _ "utvonal2", FileFormat:=xlCSV, _ CreateBackup:=False 'takarítás owb.Close False oex.Quit Set owb = Nothing Set oex = Nothing
    Mutasd a teljes hozzászólást!
  • Idézet az előző hozzászólásomból:
    'ide jön a rögzített kód annyiban átírva, hogy owb-t vagy annak egy munkalapját mentsed el


    Az owb workbook típusú objektum lesz. Innentől kezdve rád bízom a feladat megoldását! Ja, a select metódus helyett használj abszolút címzést! Nézd meg az excel vba súgójában a worksheets gyűjtemény használatát!
    Mutasd a teljes hozzászólást!
Tetszett amit olvastál? Szeretnél a jövőben is értesülni a hasonló érdekességekről?
abcd