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

• #32482 Delila_1 veterán userguru #32480

  Új Válasz 2016-08-28 14:29:20 #32482

  Ú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

  

  Delila_1

  veterán

  válasz userguru #32480 üzenetére

  Lappy jól írta, nagyon hasonlít a feladat a Word körlevél funkciójához, csak ott nem lehet *.xlsb-be menteni az elkészült dokumentumokat.

  Elkészíted a Sablon.xlsb fájlt. A makrót a tab.xls moduljába viszed be. A két fájl azonos mappában legyen.
  A makróban a csillagos sorok közötti részt értelemszerűen a saját fájljaid szerint írd meg.
  Címsort feltételezve a tab füzetben, a sab változó (aktuális sor) értékét 2-ről indítom.

  Sub Sablonok()
Dim sab As Long, utvonal As String
Dim WSInnen As Worksheet, WSIde As Worksheet

utvonal = ActiveWorkbook.Path & "\"
Set WSInnen = Workbooks("tab.xls").Sheets("Munka1")

sab = 2
Do While WSInnen.Cells(sab, 1) <> ""
'A Sablon.xlsb megnyitása
Workbooks.Open Filename:=utvonal & "Sablon.xlsb"
Set WSIde = Workbooks("Sablon.xlsb").Sheets("Munka1")
WSIde.Activate
'***********************************************************************
WSIde.Cells(2, 2) = WSInnen.Cells(sab, 1) 'B2-be a tab aktuális sor A-ja
WSIde.Cells(5, 4) = WSInnen.Cells(sab, 2) 'D5-be a tab aktuális sor B-je
WSIde.Cells(8, 2) = WSInnen.Cells(sab, 3) 'B8-ba a tab aktuális sor C-je
'...
'...
'***********************************************************************
WSIde.SaveAs Filename:=utvonal & "sab_" & sab - 1 & ".xlsb"
ActiveWindow.Close
sab = sab + 1
Loop
End Sub

• #32481 lappy őstag userguru #32480

  Új Válasz 2016-08-28 13:27:29 #32481

  Ú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

  

  lappy

  őstag

  válasz userguru #32480 üzenetére

  Az első problémád nagyon hasonlít egy körlevélhez ott is hasonló módon kell elvégezni a műveletet.

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