Sub RefreshWBs()
Dim CurFile As String, DirLoc As String
Dim DestWB As Workbook
Dim ws As Object 'allows for different sheet types
Dim OrigWB As Workbook
[COLOR=#0000ff]DirLoc = "H:\MSO\Documents"[/COLOR]
CurFile = Dir(DirLoc & "\*.xls*")
Application.ScreenUpdating = True
Application.EnableEvents = False
Do While CurFile <> vbNullString
Application.DisplayAlerts = False
'Workbooks.Open Filename:=DirLoc & "\" & CurFile
Set OrigWB = Workbooks.Open(Filename:=DirLoc & "\" & CurFile)
OrigWB.RefreshAll
Application.DisplayAlerts = True
OrigWB.Close SaveChanges:=True
CurFile = Dir
Loop
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Application.EnableEvents = True
Set DestWB = Nothing
End Sub
Что там что там после копирования, при открытии файла возникает ошибка с графикой.
И перестает работать кусок который генерирует штрихкод с помощью специфичного плагина.
Как заставить эти библиотеки работать с плагином?
Private Sub CommandButton1_Click()
duplicateCoount = 2 ' Количество дубликатов
i = 1
lastRow = 1
Do While Sheets("Sheet1").Cells(i, 1) <> ""
Sheets("Sheet1").Rows(i).Copy
j = 1
Do While j <= duplicateCoount
Sheets("duplicates").Rows(lastRow).PasteSpecial xlPasteValues
lastRow = lastRow + 1
j = j + 1
Loop
i = i + 1
Loop
End Sub
=ИНДЕКС($A$1:$A$100;B1*10)
и протягиваешь.=ИНДЕКС($A$1:$A$100;СТРОКА()*10)