Sub GetFile()
Dim TARFIL As String
Dim wb, wbtemp As Workbook
Dim ws, wstemp As Worksheet
Dim lrow As Long
Set wbtemp = ThisWorkbook
Set wstemp = wbtemp.Sheets("RawData")
With Application
.ScreenUpdating = False
.DisplayAlerts = False
End With
TARFIL = "C:\Users\KBL\Desktop\Dashboard\Inquiry.csv"
'opening of data
If Dir(TARFIL) <> "" Then
Workbooks.OpenText Filename:=TARFIL, startRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, 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), Array(13, 1), Array(14, 1), Array(15, 1), _
Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array(20, 1), Array(21, 1), Array(22, 1), Array(23, 1))
Set wb = ActiveWorkbook
Set ws = wb.Sheets(1)
'dumping of data to template
With ws
lrow = .Range("A" & Rows.Count).End(xlUp).Row
.Range("A4:V" & lrow).Copy wstemp.Range("A1")
End With
'closing and rereshing of data
wb.Close
wbtemp.RefreshAll
End If
Bookmarks