|
Login
  • Page:
  • 1

TOPIC: CERCA PERCORSO RIPORTATO IN UNA CELLA

CERCA PERCORSO RIPORTATO IN UNA CELLA 2 years 2 months ago #12387

  • rugantino
  • rugantino's Avatar
  • OFFLINE
  • Gold Boarder
  • Posts: 220
  • Thank you received: 4
  • Karma: 5
Rieccomi di nuovo qua :blush:

Tramite la macro:
Sub CopiaCalendario()
Dim p As String
Dim Mpath As Variant
Cells.Select
Selection.Copy
Workbooks.Open ("C:\Users\User\Desktop\PROVA-CENTA\CALENDARIO_Ciclomotori.xlsx")
Range("A1").Select
ActiveSheet.Paste
ActiveWorkbook.Save
ActiveWorkbook.Close
Application.CutCopyMode = False
End Sub

Modifico il calendario, ma in realtà questa cartella (Calendario) c’è ne una in DropBox, una in Box Sync ed un’altra in altro archivio sempre in rete. Per cui dovrei ogni volta modificare manualmente il percorso di destinazione.
Ora, con l’istruzione: NewFile = Application.GetOpenFilename
cerco la destinazione del file e lo assegno ad una cella (es. “K6”)
Vorrei dire all’istruzione:
Workbooks.Open ("C:\Users\User\Desktop\PROVA-CENTA\CALENDARIO_Ciclomotori.xlsx")
Di andare a pescare il percorso in “K6” cioè:
Workbooks.Open = Range(“K6”)

Ma non mi ascolta…. :angry:

Rugantino
The administrator has disabled public write access.

CERCA PERCORSO RIPORTATO IN UNA CELLA 2 years 2 months ago #12388

  • Marius44
  • Marius44's Avatar
  • OFFLINE
  • Gold Boarder
  • Posts: 185
  • Thank you received: 38
  • Karma: 14
Ciao
Workbooks.Open si aspetta una stringa!
Fai così (tieni presente che non ho modo di testare ma dovrebbe funzionare)
in K6 metti ="C:\Users\User\Desktop\PROVA-CENTA\CALENDARIO_Ciclomotori.xlsx"
oppure il percorso che ti pare
quindi nella macro invece di Workbooks.Open = Range(“K6”) metti queste due righe di codice

percorso = Range("K6")
Workbooks.Open (percorso)

Fai sapere. Ciao,
Mario
The administrator has disabled public write access.

CERCA PERCORSO RIPORTATO IN UNA CELLA 2 years 2 months ago #12389

  • rugantino
  • rugantino's Avatar
  • OFFLINE
  • Gold Boarder
  • Posts: 220
  • Thank you received: 4
  • Karma: 5
Grazie Mauro,
funziona benissimo!

In realtà io insistevo nel mettere:
PercorsoFile = Sheets("Credenziali").Range("K6")
Workbooks.Open (“PercorsoFile”) …tra gli apici :blush:

Grazie Ancora
Rugantino
The administrator has disabled public write access.
  • Page:
  • 1
Time to create page: 0.404 seconds