Astuces Excel
  1. Astuces Excel
  3. IE 10 ouvrir save et save comme
Intereting Posts
Vérifiez si un document Excel comporte une macro pour définir l'extension de file correcte en sauvegarde Valider datatables Excel pour des différences mineures Convertir la google spreadsheet en Excel XLS avec Script Accès à un tableau qui est stocké dans une seule cellule Comment puis-je transférer un format de date comme 2014/02/13/19: 57: 00 à un format de date lisible Excel? Comment mettre en surbrillance la cellule dans excel si elle est vierge sur la comparaison dans différentes feuilles? Comment save le file avec savedilogue javafx Pourquoi certains documents Excel doivent-ils être ouverts à Vlookup, et pas à d'autres? Optimiser le code Excel VBA Excel: Détection d'un alphabet dans une colonne Erreur write.xlsx dans Erreur dans .jnew et j.check dans R État de cas ne fonctionne pas – VBA Macro Excel – append une colonne à une autre Date soustrayant le dilemme Excel 2007 Définir backgroundcolor HSSFRow

IE 10 ouvrir save et save comme

Je suis en train d'écrire un code pour download un file CSV et l'save dans un dossier spécifique.

La façon actuelle de download des files sur le Web est: 

On Error Resume Next With Workbooks.Open("Direct Link to the CSV or XLS File") .SaveAs 'Name of file destination .Close SaveChanges:=False 'Added this in due to a pop up appearing when downloading a CSV End With On Error GoTo 0

Ce file particulier que j'essaye de download ne peut être fait que dans IE.

C'est le code que j'ai jusqu'à présent ouvert la page Web: 

 Sub data() Dim IE As Object Dim Report As Variant Set IE = CreateObject("INTERNETEXPLORER.APPLICATION") IE.Navigate "Name of CSV File URL" IE.Visible = True End Sub

Je viens alors d'apparaître un pop-up Windows Explorer. Lien d'image ci-dessous.

http://fud.community.services.support.microsoft.com/Fud/FileDownloadHandler.ashx?fid=2062fa2a-ad09-4379-bfe0-49abeb5516fc

Y a-t-il des idées sur lesquelles je "clique" sur le button Enregistrer sous et le mets dans un path de file. Je peux imaginer Sendkeys est une solution.

Ceci est pour IE10, exécutant excel 2010 et Windows 7.

Donc, après un peu d'expérimentation, j'ai réussi à find un travail. Au lieu de cela, je l'ai ouvert en utilisant une requête Web via excel.

Voici le code: 

 Workbooks.add With ActiveSheet.QueryTables.add(Connection:= _ "URL;http\\:thelinkiused.csv" _ , Destination:=Range("$A$1")) .Name = "transaction" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .BackgroundQuery = False .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .WebSelectionType = xlAllTables .WebFormatting = xlWebFormattingNone .WebPreFormattedTextToColumns = True .WebConsecutiveDelimitersAsOne = True .WebSingleBlockTextImport = False .WebDisableDateRecognition = False .WebDisableRedirections = False .Refresh BackgroundQuery:=False End With Columns("A:A").Select Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _ Semicolon:=False, Comma:=True, Space:=False, Other:=False ActiveWorkbook.SaveAs Filepath & "\thelinkIused.csv" ActiveWorkbook.Close savechanges:=False

Il s'agit évidemment d'un code très simple et n'a pas besoin de toutes les fausses déclarations pour délimiter datatables.