Сохранение файла excel в цикле VBA

Question

Я создал макрос, который пересекает список стран, и этот обновленный номер на «Dash_eng». Я могу получить цикл, чтобы работать, но часть цикла вызывает другой макрос, который копирует и сохраняет «Dash_Eng») в качестве файла Excel

Оба макроса работы, когда работают независимо друг от друга его просто положить их вместе

Macro который петлями, хотя в стране и вызывает сохранение в Excel макрос

Sub ReportUpdate()  
Dim i As Integer, numrows As Integer 
    Sheets("Text").Select   
    numrows = Range("O2", Range("O2").End(xlDown)).Rows.Count 

    Range("O1").Select 
    i = 1 
    Do While i <= numrows 
     ActiveCell.Offset(rowOffset:=1, columnoffset:=4) = "X" 
     ActiveCell.Offset(1, 0).Select 
     Range("M1") = ActiveCell 
     Call Send_to_PDF 
     i = i + 1 
    Loop 
    MsgBox "Dear Sir/Madam your base data has been refreshed and all other relivant formatting macros have been run" 
End Sub 

Сохранение макроса

Sub Send_to_PDF() 

Dim Ref As String 

Dim St As String 
Dim En As String 
Dim Ex_Ref As String 

FilePath = "P:\Hyundai\Hyundai GLOBAL\Country folders\EUROPE\A3 Ops reports" 

Sheets("Dashboard - ENG").Select 
Sheets("Dashboard - ENG").Copy 


Cells.Select 
Range("C1").Activate 
Selection.Copy 
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False 
Application.CutCopyMode = False 

Ex_Ref = Sheets("Dashboard - Eng").Range("L1") 
St = FilePath + "\Dashboard - ENG" 
Ref = Format(DateAdd("m", -1, Now()), "yyyymm") 
En = ".xlsx" 


    ChDir FilePath 
    ActiveWorkbook.SaveAs Filename:=St & " " & " " & Ex_Ref & " " & Ref & En 

    ActiveWorkbook.Theme.ThemeColorScheme.Load (_ 
     "C:\Program Files (x86)\Microsoft Office\Document Themes 15\Theme Colors\Office 2007 - 2010.xml" _ 
     ) 


    ActiveWindow.Close 

PS: Я знаю его не отправить его в PDF

Любые идеи?

Answer 1

Вы можете просто PDF-лист, вам не нужно его копировать.

, например

Sub PDFme() 
    Dim dr As String 
    Dim PDFnm As String 
    Dim myFnm As String 
    Dim PdfSH As Worksheet 

    dr = "C:\Users\dmorrison\Downloads\" 
    PDFnm = "MyPDF.pdf" 
    myFnm = dr & PDFnm 
    Set PdfSH = Sheets("Dashboard - ENG") 

    PdfSH.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ 
           myFnm, Quality:=xlQualityStandard, _ 
           IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ 
           True 
End Sub 

Answer 2

Привет всем спасибо за помощь я исправил проблему.

Это не было с спасительной макрос но зацикливание макроса

Sub ReportUpdate()

Dim я As Integer, NumRows As Integer

**Sheets("Text").Select (** 

    numrows = Range("O2", Range("O2").End(xlDown)).Rows.Count 

    Range("O1").Select 

    i = 1 

    Do While i <= numrows 

    Sheets("text").Select 
    ActiveCell.Offset(rowOffset:=1, columnoffset:=4) = "X" 
    ActiveCell.Offset(1, 0).Select 
    Range("M1") = ActiveCell 

       Save_2_Excel 

    i = i + 1 

    Loop 


    MsgBox "Dear Sir/Madam your base data has been refreshed and all other relivant formatting macros have been run" 

End Sub

Линия выделено жирным шрифтом, все, что я добавил, потому что активную ячейку в листовом сырье необходимо было реактивировать до того, как петля началась еще раз

PS: Если вы копируете это перебрать сохранения файла в Excel добавить в Excel сохранения макроса

ActiveWindow.Close Ложные

Это закроет новый лист без экономии, которая круто, потому что это последняя инструкция и лист уже сохранены.