Condividi:        

aiuto! macro excel mi cerca file in temp

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

aiuto! macro excel mi cerca file in temp

Postdi fabr izio » 24/01/13 12:58

Buongiorno a tutti, avrei bisogno di un aiuto.
Mi scuso in anticipo per inesattezze o imprecisioni che potrebbero esserci nel mio messaggio ma sono davvero un ebete quando si tratta di pc.

Io ho un file di excel con delle macro che utilizzo per sviluppare dei file .dat creati da un data logger.
In questo file a un certo punto mi viene chiesto di specificare una cartella in cui copiare i file di elabrorazione (3, quello su cui lavoro, un file giornaliero che il sistema utilizza per elaborare i file dei singoli giorni della settimana raccolti dal data logger e un file che riassume tutti i dati giornalieri in un file setimanale); non so perchè ma da oggi quando clicco sul pulsante che comanda la macro per eseguire la copia dei file excel apre la cartella TEMP.
e fin qui nessun problema pensavo io, cambio la cartella di destinazione ed il gioco è fatto!
ed invece il software di elaborazione continua a lavorare sulla cartella temp senza darmi la possibiltà di intervenire non portando a termine l'elaborazione.
Dimenticavo: il sistema operativo è XP e la versione di excel è 2003.

Spero possiate aiutarmi, grazie a tutti in anticipo
fabr izio
Newbie
 
Post: 9
Iscritto il: 24/01/13 12:25

Sponsor
 

Re: aiuto! macro excel mi cerca file in temp

Postdi Flash30005 » 24/01/13 13:13

Ciao Fabrizio e benvenuto nel Forum

Strano che da un giorno e l'altro tu abbia questa anomalia
l'unica cosa che mi viene da pensare è che, forse, il percorso è un percorso di rete e la rete non è disponibile (?)
In questo caso dovrebbe andare in errore e non aprire la cartella Temp :roll:

Nel prossimo post prova ad inviare la macro "incriminata"?

ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: aiuto! macro excel mi cerca file in temp

Postdi fabr izio » 24/01/13 13:47

grazie flash, no non dovrebbe essere un percorso di rete. ho notato un altra cosa nel guardare il debug ( che a dire il vero non so nemmeno cos'è) ed andando a cercare i file creati dal software in temp e cioè che il software crea solo un giorno e non tutti e 7 come dovrebbe. c'è modo di caricare direttamente il file e non solo la macro?
fabr izio
Newbie
 
Post: 9
Iscritto il: 24/01/13 12:25

Re: aiuto! macro excel mi cerca file in temp

Postdi fabr izio » 24/01/13 14:14

provo a spiegarmi meglio ...
io ho una cartella in C: che contiene 3 file .xls; uno che è il software che fa l'elaborazione e altri 2 che sono i file a "campione" per la creazione di altri 8 file, 7 per i giorni della'analisi ed uno riassuntivo per la settimana come dicevo prima.
Di volta in volta creo una cartella con i 7 file .dat rilevati dal logger e, una volta specificata questa cartella nel software solitamente lui fa una copia di tutti e tre i primi file e con questi genera i secondi 8 sempre nella cartella con i .dat.
ora io nella cartella che vado a specificare trovo i file campione ma poi il software nelle successive fasi ignora il mio comando e procede utilizzando la cartella temp che non contiene i file necessari e quindi non porta a termine l'operazione
fabr izio
Newbie
 
Post: 9
Iscritto il: 24/01/13 12:25

Re: aiuto! macro excel mi cerca file in temp

Postdi Anthony47 » 24/01/13 15:29

Direi che per capire perche' la macro ha quel comportamento "aiuterebbe molto" avere il listato della macro.

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19432
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: aiuto! macro excel mi cerca file in temp

Postdi fabr izio » 24/01/13 18:42

ehm ... come dicevo ... non sono proprio forte forte in informatica, dove lo trovo questo listato? io ti posso dire che ho un pulsante da cliccare con scritto ok ... ho provato a cliccarci col tasto destro, ho provato a cliccarci e tenendo cliccato guardare se nella barra della formula compariva qualcosa ... niente.
che devo fare?
fabr izio
Newbie
 
Post: 9
Iscritto il: 24/01/13 12:25

Re: aiuto! macro excel mi cerca file in temp

Postdi Anthony47 » 24/01/13 21:47

Supponiamo che il foglio non sia protetto.
Da Excel, Alt-F11, e ti si aprira' l' editor delle macro; nella barra degli strumenti troverai una icona con Righello e Squadra: premila per entrare in modalita' progettazione.
Torna sul foglio excel, il pulsante e' disabilitato. Tasto dx sulla forma:
1)se e' un activex avrai tra le scelte "Visualizza codice", che tu sceglierai
-sara' portato sull' editor delle macro, dove vedrai quali macro sono associate al pulsante e ai suoi n eventi (AA)
2) se e' un Modulo non avrai questa scelta; vai col mouse sulla cornice attorno all' oggetto, tasto dx, scegli Assegna macro.
-prendi nota del nome della macro associato, e premi Esc
-premi Alt-F8, vedrai l' elenco delle macro disponibili; scegli quella associata al pulsante e premi Modifica: sara' portato sull' editor delle macro, dove vedrai il listato della macro (BB)

Se sei finito in AA, copia tutte le macro visualizzate e incollale nel tuo prossimo messaggio.
Se sei finito in BB, copia l' intera Macro, dall' inizio (Sub NomeMacro()) alla fine (End Sub)

Vedremo cosa ne capiremo.
Ovviamente potresti avere i fogli protetti con password, o protetto il codice macro; insomma non e' detto che vada tutto semplice come ti ho detto.

Per ripristinare il funzionamento, devi ripremere Riga&Squadra per uscire dalla modalita' progettazione.

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19432
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: aiuto! macro excel mi cerca file in temp

Postdi fabr izio » 25/01/13 10:03

eccomi qui, è proprio vero che se spiegato come ad un bambino di 6 anni tutto diventa facile ... grazie Anthony
di seguito quanto trovato in AA:



Codice: Seleziona tutto
Private Sub ComboBox1_Change()
    Language = ComboBox1.Value
    Worksheets(2).Range("b1") = Language
   
End Sub


Private Sub ComboBox2_Change()
    Cells(3, 4) = ComboBox2.Value
End Sub


Private Sub CommandButton1_Click()
' Formating of the texts in the file ADL_ES.xls
    Range("a1").Select
    Range("b7:k50").Interior.ColorIndex = 2 'white
    With Range("b7:k50").Font
    .ColorIndex = 37 'bright blue
    .Bold = True
    End With
    Range("b10:k11").Interior.ColorIndex = 36 'yellow
    With Range("b10:k11").Font
    .ColorIndex = 5 'dark blue
    .Bold = True
    End With
    With Range("d13:j32").Font
    .ColorIndex = 1 'black
    .Bold = False
    End With

' Set buttons visible/unvisible
    CommandButton1.Visible = False
    CommandButton2.Visible = True
    ComboBox1.Visible = False

End Sub

Private Sub CommandButton2_Click()
    Application.ScreenUpdating = False

' Copying of the three basic files: ADL_ES.xls, day.xls, week.xls
    Do
    fName = Application.GetSaveAsFilename
    Loop Until fName <> False
    ActiveWorkbook.SaveAs Filename:=fName
    FileCopy "c:\ADL\day.xls", ActiveWorkbook.Path & "\day.xls"
    FileCopy "c:\ADL\week.xls", ActiveWorkbook.Path & "\week.xls"

' Open file day.xls
    Workbooks.Open "day.xls", 0
    Workbooks(1).Activate
   
' Execute of the makro DAT_OPEN (Modul1)
    i = 1
    ActiveSheet.Cells(3, 3).Value = i
    Application.Run "'ADL_ES.xls'!DAT_OPEN"
   
' Change of the language in the file "Operating_modes" (on/off/idle running)
    Workbooks(1).Activate
    AUS = Worksheets(2).Range("b124").Text
    LL = Worksheets(2).Range("b125").Text
    EIN = Worksheets(2).Range("b126").Text
    GES = EIN & Chr(10) & LL & Chr(10) & AUS
   
    Workbooks(2).Activate
    Charts("Operating_modes").Activate
    With Charts("Operating_modes")
        .Shapes("Text Box 10").Select
        Selection.Characters.Text = GES
        .Shapes("Text Box 11").Select
        Selection.Characters.Text = GES
        .Shapes("Text Box 12").Select
        Selection.Characters.Text = GES
        .Shapes("Text Box 13").Select
        Selection.Characters.Text = GES
        .Shapes("Text Box 14").Select
        Selection.Characters.Text = GES
        .Shapes("Text Box 15").Select
        Selection.Characters.Text = GES
    End With
 
' Show active printer in Message-Box
    Workbooks(1).Activate
    Msg1 = Worksheets(2).Range("b71").Value
    Msg2 = Worksheets(2).Range("b72").Value
    MsgBox Msg1 & Chr(13) & Chr(13) & Application.ActivePrinter & Chr(13) & Chr(13) & Msg2

' Formating of the texts in the file ADL_ES.xls
    Range("a1").Select
    Range("b7:k50").Interior.ColorIndex = 2 'white
    With Range("b7:k50").Font
    .ColorIndex = 37 'bright blue
    .Bold = True
    End With
    Range("b12:k32").Interior.ColorIndex = 36 'yellow
    With Range("b12:k32").Font
    .ColorIndex = 5 'dark blue
    .Bold = True
    End With
    With Range("d13:j32").Font
    .ColorIndex = 1 'black
    .Bold = False
    End With
   
' Set buttons visible/unvisible
    CommandButton2.Visible = False
    CommandButton3.Visible = True
   
    ActiveSheet.Range("e13").Select
    Application.ScreenUpdating = True
End Sub


Private Sub CommandButton3_Click()
    Application.ScreenUpdating = False
   
' ' Formating of the texts in the file ADL_ES.xls
    Range("a1").Select
    Range("b7:k50").Interior.ColorIndex = 2 'white
    With Range("b7:k50").Font
    .ColorIndex = 37 'bright blue
    .Bold = True
    End With
    Range("b33:k40").Interior.ColorIndex = 36 'yellow
    With Range("b33:k40").Font
    .ColorIndex = 5 'dark blue
    .Bold = True
    End With
    With Range("d13:j32").Font
    .ColorIndex = 1 'black
    .Bold = False
    End With

' Set buttons visible/unvisible
    CommandButton3.Visible = False
    CommandButton4.Visible = True
   
    Application.ScreenUpdating = True
End Sub

Private Sub CommandButton4_Click()

    Application.ScreenUpdating = False
   
' Save day 01 as xls file
    Workbooks(1).Activate
    b = ActiveSheet.Cells(3, 5).Value
    c = ActiveSheet.Cells(3, 6).Value
    cd = ActiveSheet.Cells(3, 4).Value
    Workbooks(2).Activate
    ActiveWorkbook.SaveAs b
   
' Print diagrams day 01
    If cd = 0 Then
    Else
        Workbooks(2).Activate
        Charts("Air_flow").PrintOut copies:=cd
        Charts("Operating_modes").PrintOut copies:=cd
        Charts("Current").PrintOut copies:=cd
    End If
   
'Execute makro DAT_OPEN
    Workbooks(1).Activate
    Dim i
    For i = 2 To 7
    Workbooks(1).Activate
    ActiveSheet.Cells(3, 3).Value = i
    Application.Run "'ADL_ES.xls'!DAT_OPEN"
    Next i
   
    Workbooks(2).Close SaveChanges:=False



' W E E K L Y   C U R V E S
' =========================


' In case that day is not existing, create new blank workbook
    If Dir("Mon.xls") = "" Then
        Workbooks.Add
        Worksheets(1).Name = "Data"
        ActiveWorkbook.SaveAs Filename:="Mon.xls"
        ActiveWorkbook.Close SaveChanges:=False
        Worksheets(1).Range("f3").Value = "blank file"
    End If
    If Dir("Tue.xls") = "" Then
        Workbooks.Add
        Worksheets(1).Name = "Data"
        ActiveWorkbook.SaveAs Filename:="Tue.xls"
        ActiveWorkbook.Close SaveChanges:=False
        Worksheets(1).Range("f3").Value = "blank file"
    End If
    If Dir("Wed.xls") = "" Then
        Workbooks.Add
        Worksheets(1).Name = "Data"
        ActiveWorkbook.SaveAs Filename:="Wed.xls"
        ActiveWorkbook.Close SaveChanges:=False
        Worksheets(1).Range("f3").Value = "blank file"
    End If
    If Dir("Thu.xls") = "" Then
        Workbooks.Add
        Worksheets(1).Name = "Data"
        ActiveWorkbook.SaveAs Filename:="Thu.xls"
        ActiveWorkbook.Close SaveChanges:=False
        Worksheets(1).Range("f3").Value = "blank file"
    End If
    If Dir("Fri.xls") = "" Then
        Workbooks.Add
        Worksheets(1).Name = "Data"
        ActiveWorkbook.SaveAs Filename:="Fri.xls"
        ActiveWorkbook.Close SaveChanges:=False
        Worksheets(1).Range("f3").Value = "blank file"
    End If
    If Dir("Sat.xls") = "" Then
        Workbooks.Add
        Worksheets(1).Name = "Data"
        ActiveWorkbook.SaveAs Filename:="Sat.xls"
        ActiveWorkbook.Close SaveChanges:=False
        Worksheets(1).Range("f3").Value = "blank file"
    End If
    If Dir("Sun.xls") = "" Then
        Workbooks.Add
        Worksheets(1).Name = "Data"
        ActiveWorkbook.SaveAs Filename:="Sun.xls"
        ActiveWorkbook.Close SaveChanges:=False
        Worksheets(1).Range("f3").Value = "blank file"
    End If
   
' Open week.xls
    Workbooks.Open "week.xls", 3

' Cummulative flow
    Workbooks(2).Activate
    Worksheets(2).Activate
    ActiveSheet.Range("j8:j343").Copy
    ActiveSheet.Range("k8").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    ActiveSheet.Range("k8:k343").Select
    Selection.Sort Key1:=ActiveSheet.Range("k8"), Order1:=xlDescending
   
' Definition of variables for formating of the diagrams
    Workbooks(1).Activate
    Lieferm = Worksheets(2).Range("b201").Text
    Betriebsz = Worksheets(2).Range("b202").Text
    WochenstE = Worksheets(2).Range("b203").Text
    Lastlauf = Worksheets(2).Range("b204").Text
    Leerlauf = Worksheets(2).Range("b205").Text
    Volumen = Worksheets(2).Range("b206").Text
    VolumenE = Worksheets(2).Range("b207").Text
    Wochenst = Worksheets(2).Range("b208").Text
    Summenh = Worksheets(2).Range("b209").Text
   
' Formating of the diagrams
    Workbooks(2).Activate
    With Charts("Cummulative_frequency")
        .ChartTitle.Text = Summenh
        .Axes(xlCategory).AxisTitle.Text = Wochenst
        .Axes(xlValue).AxisTitle.Text = VolumenE
    End With
    With Charts("Air_flow")
        .ChartTitle.Text = Volumen
        .Axes(xlCategory).AxisTitle.Text = Wochenst
        .Axes(xlValue).AxisTitle.Text = VolumenE
    End With
    With Charts("Operating_conditions")
        .ChartTitle.Text = Betriebsz
        .SeriesCollection(1).Name = Leerlauf
        .SeriesCollection(2).Name = Lastlauf
        .Axes(xlValue).AxisTitle.Text = WochenstE
    End With
    With Charts("Res_Air_flow")
        .ChartTitle.Text = Lieferm
    End With

' Formating of the texts in the file ADL_ES.xls
    Workbooks(1).Activate
    Range("a1").Select
    Range("b7:k50").Interior.ColorIndex = 2 'white
    With Range("b7:k44").Font
    .ColorIndex = 37 'bright blue
    .Bold = True
    End With
    Range("b41:k44").Interior.ColorIndex = 36 'yellow
    With Range("b41:k44").Font
    .ColorIndex = 5 'dark blue
    .Bold = True
    End With
    With Range("d13:j32").Font
    .ColorIndex = 1 'black
    .Bold = False
    End With
   
' Set buttons visible/unvisible
    CommandButton4.Visible = False
    CommandButton5.Visible = True
   
' Scree updating
    Application.ScreenUpdating = True
   
End Sub


Private Sub CommandButton5_Click()
' Print weekly curves
    cw = ComboBox3.Value
    If cw = 0 Then
    Else
        Workbooks(2).Activate
        Charts("Cummulative_frequency").PrintOut copies:=cw
        Charts("Air_flow").PrintOut copies:=cw
        Charts("Operating_conditions").PrintOut copies:=cw
        Charts("Res_Air_flow").PrintOut copies:=cw
        Worksheets(1).PrintOut copies:=cw
    End If

' Close everything
    Workbooks(2).Activate
    ActiveWorkbook.Save
    ActiveWorkbook.Close
    Workbooks(1).Close SaveChanges:=True
End Sub


Incrocio le dita ...
fabr izio
Newbie
 
Post: 9
Iscritto il: 24/01/13 12:25

Re: aiuto! macro excel mi cerca file in temp

Postdi fabr izio » 25/01/13 10:46

ah, nella barra della formula cliccando col destro esce:

=INCORPORA("Forms.CommandButton.1";"")
fabr izio
Newbie
 
Post: 9
Iscritto il: 24/01/13 12:25

Re: aiuto! macro excel mi cerca file in temp

Postdi fabr izio » 25/01/13 12:09

AGGIORNAMENTO

Dunque, ho stabilito che il problema è in Excel e non nel file. :)

Non capendo nulla di quello che ho scritto e non sapendo nemmeno da che parte iniziare, mi è venuta un'idea :idea: , ho copiato e spostato le famose due cartelle su un altro pc sempre con stesso sistema operativo e versione di excel e funziona tutto perfettamente, al comando apre la cartella documenti e non temp, la cambio come ero solito fare, scelgo quella corretta e tutto procede liscio come l'olio. :o

Ora, per non dover andare a "rubare" il pc del mio collega ogni volta come posso modificare quest'impostazione di excel?

Grazie e scusate se non ho pensato prima a fare una prova del genere. :eeh:
fabr izio
Newbie
 
Post: 9
Iscritto il: 24/01/13 12:25

Re: aiuto! macro excel mi cerca file in temp

Postdi Flash30005 » 25/01/13 13:36

Anche per te è consigliabile che elimini i file contenuti nel percorso indicato seguendo questa procedura
Chiudi l'applicativo Excel poi
prova ad eliminare tutti i file contenuti nella cartella Excel in questo percorso (per windows XP)
C:\Documents and Settings\nome utente\Application Data\Microsoft\Excel\

Inoltre non dovresti avere alcun file nella sottocartella "XLStart"
se ci sono eliminali ma non eliminare la cartella "XLStart"

Riapri excel e fai sapere se è tornato tutto a posto

ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: aiuto! macro excel mi cerca file in temp

Postdi fabr izio » 25/01/13 14:32

Ciao Flash, in application data/Microsoft ho solo un'altra cartella forms che contiene RefEdit.exd

Però ho anche dati applicazioni che invece contiene Microsoft/Excel/XLStart (vuota) e un file EXCel11

Vuoto questa?
fabr izio
Newbie
 
Post: 9
Iscritto il: 24/01/13 12:25

Re: aiuto! macro excel mi cerca file in temp

Postdi fabr izio » 25/01/13 14:43

ho provato a vuotare quella e niente da fare, tutto come prima
fabr izio
Newbie
 
Post: 9
Iscritto il: 24/01/13 12:25

Re: aiuto! macro excel mi cerca file in temp

Postdi Flash30005 » 25/01/13 15:14

hai eliminato il file "EXCel11" ?
e lasciato la cartella XLStart (vuota)?

se così e apri excel dovresti ripristinare le funzioni di default di excel

fai sapere
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: aiuto! macro excel mi cerca file in temp

Postdi Anthony47 » 25/01/13 15:25

In aggiunta a quanto detto da Flash (vedi sopra): se provi a fare Menu /Salva (su un nuovo file) o Menu /Salva-con-nome (su un file preesistente) riesci liberamente a scegliere una qualsiasi cartella del tuo disco?

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19432
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "aiuto! macro excel mi cerca file in temp":


Chi c’è in linea

Visitano il forum: Nessuno e 9 ospiti