?
Option Explicit
'Public DestWB As Workbook
'Public SrcWB As Workbook
Private DestWB As Workbook
Private SrcWB As Workbook
Const Project_Path = "C:\Temp\export.csv"
Sub A_1_ini_procedure()
Set DestWB = ActiveWorkbook
Workbooks.OpenText Filename:=Project_Path, Origin:=65001, StartRow:=1, DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, _
Tab:=True, Semicolon:=False, Comma:=True, Space:=False, Other:=False, _
FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), _
Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), _
Array(12, 1)), TrailingMinusNumbers:=True
Set SrcWB = ActiveWorkbook
Call A_2
End Sub
Sub A_2()
Call A_3(SrcWB, DestWB)
End Sub
Sub A_3(SrcWB As Workbook, DestWB As Workbook)
'code
Application.Wait (Now + TimeValue("00:00:01"))
Windows(DestWB.Name).Activate
Application.Wait (Now + TimeValue("00:00:01"))
Windows(SrcWB.Name).Activate
Application.Wait (Now + TimeValue("00:00:01"))
Windows(DestWB.Name).Activate
Application.Wait (Now + TimeValue("00:00:01"))
Windows(SrcWB.Name).Activate
Application.Wait (Now + TimeValue("00:00:01"))
Windows(DestWB.Name).Activate
SrcWB.Close SaveChanges:=False
Set SrcWB = Nothing
End Sub
?
Bookmarks