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

• #53351 PistiSan addikt PistiSan #53350

  Új Válasz 2024-10-04 13:11:09 #53351

  Ú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

  

  PistiSan

  addikt

  válasz PistiSan #53350 üzenetére

  A fájlok megnyitására és mentésére a google gemini írt egy VBA-t, ami működik!

  
  Sub NyisdMegEsMentMindenFajlt()
    Dim myFolder As String
    Dim myFile As String
    Dim wb As Workbook

    myFolder = "D:\valami\"
    myFile = Dir(myFolder & "*.xlsx")

    Do While myFile <> ""
        Set wb = Workbooks.Open (myFolder & myFile)
        wb.Save
        wb.Close
        myFile = Dir
    Loop
End Sub

  Annyit kéne még megoldani, hogy a forrás fájlokban az A6 cellában lévő értéket be kellene illeszteni egy új oszlopba!
  Ha mondjuk a fájl 1000 soros, akkor az A6 érétéket mind az 1000 sorban meg szeretném jeleníteni.

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