Sheets("CloseData").Select
Range("A1").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;D:\sap_suprapto_julasep2008.csv", Destination _
:=Range("A1"))
'.Name = "sap_suprapto_julasep2008" (ini udah sy coba dimatikan)
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 437
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierNone
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False (ini kunci bahwa data itu
bakal di kopi atau tidak, jika dinon aktivkan maka data ndak dikopi)
End With
kalo ada yg bisa bantu, silahkan sy masih butuh? :D
--- In [email protected], "siti Vi" <[EMAIL PROTECTED]> wrote:
>
> lha mbok dicoba 'gini: (barangkali : 'belum')
> sambil mengerjakan spt itu, hidupkan rekaman makrohnya
> (tools > makroh > record new makroh , dst)
> selesai mengimpor, matikan rekaman, lalu buka module di vbe
> siapa tahu di situ ada rekamannya
> dan kalau ada, tentu banyak hal yg dapat dipelajari
> paling tinggal edit edit sedikit..
>
>
