Bonjour,
je bloque sur un problème qui est le suivant :
j'ai 1 appli qui extracte d'une base SQL server vers 1 fichier Excel.
Comme les quantités extraites sont importantes, on fait une extraction "par lot" (comme en vb.net, pas de Lot DTS)...
Ca marche bien sauf que ça ne gère pas si on dépasse les 65536 lignes autorisées dans 1 onglet excel...
Résultat il manque des enreg. dans les fichiers générés.
Voici le code utilisé pour l'extract :
Si quelqu'un connait le moyen de gerer cette "limite" de 65536 dans une extraction par lot ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27 appExcel.DisplayAlerts = False xlBook = appExcel.Workbooks.Open(Extraction_DI.sNomRepSource & "temp.xls") xlSheet = xlBook.Sheets.Item(1) xlSheet.Name = "Résultats" xlSheet.Activate() With xlSheet.QueryTables.Add(sChaineExcel, xlSheet.Range("A1")) .CommandText = sSQL .Name = "Résultats" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .BackgroundQuery = True .RefreshStyle = Excel.XlCellInsertionMode.xlOverwriteCells .SavePassword = False .SaveData = False .AdjustColumnWidth = True .RefreshPeriod = 0 .PreserveColumnInfo = True .Refresh(BackgroundQuery:=False) End With xlSheet.Range("A1").Select() appExcel.ActiveWorkbook.SaveAs(sFichier) appExcel.ActiveWorkbook.Close()
Merci d'avance![]()
Partager