Macro para exportal excel a txt
Desde un archivo excel necesito crear un archivo *.txt para incorporar a mi base sql. Os adjunto lo que necesitaría en una imagen. En este caso son dos filas pero podrían ser más). Muchas gracias.
https://1drv.ms/i/c/b0479862b08cd33c/EZv26Jh6CftLiB_FYGqOJkgBvZRy7KQ4khU5oMwGfiwRsA?e=YRJla8
Revisa este:
Como convertir una macro en txt
Recomendación:
https://www.youtube.com/watch?v=HfFCtMl189U&t=1295s
Sal u dos
Dante Amor
prueba
Gracias por al aportación. Los varios formatos que me dices para exportar el excel en txt no sirven dado que ninguno es igual al que adjunto en la pregunta que formule. Desde mi ignorancia creo que el codigo debería recorrer las filas de Excel copiando los valores de las filas y pegándolas con en el formato como se ve en la pregunta e intercalando entre cada una de ellas los nombres de las columnas y con el comando sql para su ejecución.
execute block as begin
…………
end
En cuanto al nombre del archivo podría ser "insertar" y guardarlo en D:\Descargas.
Gracias.
1 respuesta más de otro experto
I. Hola Jose Carlos, por mi parte sólo soy lector, pero con su permiso deseaba trasladarle la información que vi sobre su consulta por si pudiese serle de alguna utilidad mientras le atiende un experto de primera mano.
Lamento no saber atenderle mejor. Disculpe todas las molestias de lectura y el tipo de respuesta, ánimo y suerte.
https://stackoverflow.com/questions/26151021/how-to-save-as-txt-in-vba
https://stackoverflow.com/questions/46768426/vba-export-excel-sheet-to-a-txt-file
https://www.youtube.com/watch?v=bY7w4YJNyhw
Aportado por un usuario que utilizó ChatGPT
$csvFilePath = "C:\Path\To\Your\File.csv"
# Read the CSV file
$csvData = Import-Csv -Path $csvFilePath
# Get the headers from the CSV file
$headers = $csvData[0].PSObject.Properties.Name
# Initialize counters
$totalRows = 0
$uniqueEmployeeIDs = @{}
# Process each row in the CSV data
foreach ($row in $csvData) {
$totalRows++
# Get the value in the first column (employee ID)
$employeeID = $row.$($headers[0])
# Add the employee ID to the uniqueEmployeeIDs dictionary
$uniqueEmployeeIDs[$employeeID] = $null
}
# Count the unique employee IDs
$uniqueEmployeeIDCount = $uniqueEmployeeIDs.Count
# Output the results
Write-Host "Total Rows: $totalRows"
Write-Host "Unique Employee IDs: $uniqueEmployeeIDCount"