|
FORUMS PROFESSIONNELS
WINDEV, WEBDEV et WINDEV Mobile |
| | | | | |
| Débuté par Elliot.ly, 21 jan. 2005 13:06 - Aucune réponse |
| |
| | | |
|
| |
| Posté le 21 janvier 2005 - 13:06 |
bonjour
j'aimerais savoir comment je devais coder cette macro excel
je sais qu'il faut faire préceder les macro par >>
donc j'ai fait :
xl>>activesheet>>querytables>>add.. puis ensuite je ne sais plus comment faire
Merci
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Documents and Settings\ly\Bureau\elliot.txt", Destination:=Range("A1"))
.Name = "elliot"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = xlWindows
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1)
.Refresh BackgroundQuery:=False
End With
End Sub |
| |
| |
| | | |
|
| | | | |
| | |
| | |
| |
|
|
|