IALweb Homepage
Forum Home Forum Home > MS Office > Microsoft Office > Microsoft Access
  New Posts New Posts RSS Feed - [Risolto] Codici modifica xls file
  FAQ FAQ  Forum Search   Events   Register Register  Login Login

 Topic   Topic Hot   Topic New   Topic Locked   Topic Sticky   Topic Hidden

[Risolto] Codici modifica xls file
 Post Reply Post Reply
Author
Message
  Topic Search Topic Search  Topic Options Topic Options
fcarboni View Drop Down
Utente Senior
Utente Senior
Avatar

Joined: 25/Nov/2010
Location: Italy
Status: Offline
Points: 272 		Post Options Post Options   Thanks (0) Thanks(0)   Quote fcarboni Quote  Post ReplyReply Direct Link To This Post Topic: [Risolto] Codici modifica xls file
    Posted: 12/Mag/2012 at 11:45
Ciao,
dopo aver estratto una query su xls, sto iniziando a formattare i dari estratti.
Perchè tutte le volte che uso un parametro "testuale" mi va in errore 1004 mentre se trovo il codice "numerico" tutto va bene.
 
Vi faccio 2 esempi:
.Application.Selection.PasteSpecial Paste:= "xlPasteValues" non va
.Application.Selection.PasteSpecial Paste:=-4163 Funziona
 
.Application.Selection.columns.HorizontalAlignment = "xlCenter"  non va
.Application.Selection.columns.HorizontalAlignment = -4108        funziona
Visto che funzionano solo i codici numerici e che in rete trovo solo esempi testuali, sapete dirmi dove posso trovare una tabella di comparazione.
Grazie


Edited by fcarboni - 12/Mag/2012 at 12:28
Back to Top
Ricky53 View Drop Down
Amministratore
Amministratore
Avatar
Esperto di Excel e PowerPoint

Joined: 05/Ott/2006
Location: Italy
Status: Offline
Points: 9466 		Post Options Post Options   Thanks (1) Thanks(1)   Quote Ricky53 Quote  Post ReplyReply Direct Link To This Post Posted: 12/Mag/2012 at 12:05
Ciao,
ATTENZIONE: non devi utilizzare i doppi apici in xlPasteValues !
Amministratore

Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione
Back to Top
fcarboni View Drop Down
Utente Senior
Utente Senior
Avatar

Joined: 25/Nov/2010
Location: Italy
Status: Offline
Points: 272 		Post Options Post Options   Thanks (0) Thanks(0)   Quote fcarboni Quote  Post ReplyReply Direct Link To This Post Posted: 12/Mag/2012 at 12:18
ciao Ricky53,
non andava comunque, ma ho scoperto l'arcano : Microsoft Excel xx Object Library.
grazie.
mentre non trovo come eliminare le righe di un foglio.


Dim xlApp As Object
Dim xlSheet As Object


Set xlApp = CreateObject("Excel.Application")
Set xlSheet = xlApp.Workbooks.Open(sfile).Sheets(1)


With xlApp
.Application.Sheets("Foglio1").SELECT


.Application.Colums("A").Delete           438 - Proprietà o metodo non suportati dall'oggetto  oppure
.Application.Colums("A").SELECT


.Application.Selection.Delete             stesso errore
.Application.ActiveWorkbook.Save
.Application.ActiveWorkbook.Close
.Quit
End With
 
Trovato parametro corretto sia per Row che Column :


.Application.Rows("1:3").Delete Shift:=xlUp
.Application.Columns("A").Delete Shift:=xlLeft
Fabrizio


Edited by fcarboni - 12/Mag/2012 at 12:27
Back to Top
 Post Reply Post Reply
  Share Topic   

Forum Jump Forum Permissions View Drop Down

Forum Software by Web Wiz Forums® version 10.11
Copyright ©2001-2012 Web Wiz Ltd.

This page was generated in 0,188 seconds.