Macro per importare i dati e per inviarli con whatsapp

Question

Buongiorno a tutti e grazie in anticipo per l aiuto!

Avrei bisogno di 2 macro collegate a 2 pulsanti.

In colonna A lista di nomi persone.

In colonna B lista cognomi delle stesse persone.

In colonna C il numero di telefono associato a whatsapp

In colonna C, alla pressione del button1 vorrei importare una lista di file, immaginiamo semplicemente dal desktop,

Ognuno di questi file si chiama con il cognome della persona e vorrei inserirlo nella stessa riga corrispondente alla persona: es.

A1 Mario, b1 rossi, c1 va a prendere il file in desktop chiamato"rossi"

A2 Gianni, b2 bianco, c2 prende file desktop chiamato "bianco"

E così via fino a fine colonna dei nomi.

Alla pressione del button2 vorrei che ogni file, importato nella riga della persona al quale appartiene, venga mandato tramite whatsapp a quella persona.

Grazie!!

Ho chiesto 2 macro x due bottoni così mi semplifica il codice e anche la mia comprensione.

Grazie!!!!

Answer 1

ho cambiato

ws.Cells(i, "C").Value = filename

in

ws.Cells(i, "C").Value = filePath

forse ora andiamo vicino...

ora sarebbe possibile azionare un secondo pulsante con cui mando questi file alla persona assegnata nella stessa riga?

grazie mille veramente

Answer 2

allora, ora é perfetto,

anche se peró carica solo il nome del file ma non il percorso da poi inviare..

Answer 3

Immagino che questo dovrebbe funzionare. Non è tradotto

Questa risposta è stata tradotta automaticamente. Di conseguenza, potrebbero esserci errori grammaticali o espressioni strane.

Answer 4

ciao! non riesco bene a usarlo perche sembra che sia stata fatta una traduzione automatica di alcuni termini chiave...

Answer 5

Ciao Marco

Sono AnnaThomas e sarei felice di aiutarti con la tua domanda. In questo forum, siamo consumatori Microsoft proprio come te.

È possibile utilizzare il codice macro riportato di seguito per ottenere tale operazione:

Sub ImportFiles() Dim wb come cartella di lavoro Dim ws come foglio di lavoro Dim lastRow As Long Dim filePath come stringa Dim fileName As String

Set wb = ThisWorkbook Imposta ws = wb. Fogli("Foglio1")

lastRow = ws. Celle (ws. Rows.Count, "A"). Fine(xlUp). Fila

Per i = 1 All'ultima riga fileName = ws. Cellule(i, "B"). Valore & ".xlsx" filePath = "C:\Users\UserName\Desktop" & fileName

Se dir(filePath) <> "" allora Ws. Celle(i, "C"). Valore = fileName Fine Se Avanti i Fine sub

Questa macro eseguirà un ciclo in ogni riga della colonna A e cercherà un file con il nome corrispondente al cognome nella colonna B nella directory specificata (in questo caso, il desktop). Se il file viene trovato, il suo nome verrà scritto nella colonna C.

Nota: sostituisci "UserName" nel percorso del file con il tuo nome utente effettivo. Inoltre, sostituire "Foglio1" con il nome del foglio di lavoro, se necessario.

Spero che questo aiuti ;-), fammi sapere se questo è contrario a ciò di cui hai bisogno, sarei comunque utile per rispondere a più delle tue domande.

Migliori saluti

AnnaThomas

Restituisci alla comunità. Aiuta la persona successiva con questo problema indicando se questa risposta ha risolto il tuo problema. Fare clic su Sì o No nella parte inferiore.

Questa risposta è stata tradotta automaticamente. Di conseguenza, potrebbero esserci errori grammaticali o espressioni strane.