Option Explicit

Sub transfercsv() 'ok is work

Dim URL As String

'URL = "TEXT;//www.investis.com/chartsource/csvdownload.csv?symbol=UBS.N&startday=14&startmonth=10&startyear=2007&endday=14&endmonth=10&endyear=2008&btnSubmitCvs.x=41&btnSubmitCvs.y=5"

URL = "TEXT;//10.112.250.43/increaseperformance/export/IncPerformance_20121001_162724.csv"

Application.DisplayAlerts = False

With ActiveSheet.QueryTables.Add(Connection:=URL, _

Destination:=Range("I4"))

.Name = "test"

.FieldNames = True

.RowNumbers = False

.FillAdjacentFormulas = False

.PreserveFormatting = True

.RefreshOnFileOpen = False

.RefreshStyle = xlOverwriteCells

.SavePassword = False

.SaveData = True

.AdjustColumnWidth = True

.RefreshPeriod = 0

.TextFilePromptOnRefresh = False

'.TextFilePlatform = 437

.TextFilePlatform = 874

.TextFileStartRow = 1

.TextFileParseType = xlDelimited

.TextFileTextQualifier = xlTextQualifierDoubleQuote

.TextFileConsecutiveDelimiter = False

.TextFileTabDelimiter = False

.TextFileSemicolonDelimiter = False

.TextFileCommaDelimiter = True

.TextFileSpaceDelimiter = False

.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)

.TextFileTrailingMinusNumbers = True

.Refresh BackgroundQuery:=False

End With

Application.DisplayAlerts = True

End Sub

Sub transfercsv() 'ok is work

Dim wnd As Window

Dim sCSVLink As String

Dim sfile As String

Dim ssheet As String

sCSVLink = "//10.112.250.43/increaseperformance/export/IncPerformance_20121001_162724.csv"

sfile = "IncPerformance_20121001_162724.csv"

ssheet = "CSV Transfer"

Set wnd = ActiveWindow

Application.ScreenUpdating = False

Sheets(ssheet).Cells.ClearContents

Workbooks Filename:=sCSVLink

Windows(sfile).Activate

ActiveSheet.Cells.Copy

wnd.Activate

Range("a1").Select

Sheets("CSV Transfer").Paste

Application.DisplayAlerts = False

Windows(sfile).Close False

Application.DisplayAlerts = True

Application.ScreenUpdating = True

End Sub