¿Cómo crear botones en Excel usando VBA? Después de hacer clic en él, puede seleccionar un archivo .CSV para importarlo a este Excel y ejecutar el siguiente código.
1. Inserte un botón en el botón de herramienta de formulario de inserción de elementos de la herramienta de desarrollo.
2. Importar código
Sub Inport_Renkei_CSV_Click()
Dim fTextDir es una cadena, rowIndex es un número entero e I es un número entero
I file = application.getopenfilename("Llevar CSV ファィル(*.csv),*.csv").
Si VarType(myFile) = vbBoolean, entonces
Conector de salida
Terminará si...
rowIndex = 1 p >
Abrir myFile como entrada n.° 1
Hacer mientras no sea EOF(1)
Entrada de fila n.° 1, fila actual
Si rowIndex & gt entonces 1
rowDataArr = Split(currLine, Chr(9))
Para i = 0 a UBound(rowDataArr)
Celda(rowIndex + 1, I +1). fórmula 1c 1 = rowDataArr(I)
Siguiente I
Terminará si...
rowIndex = rowIndex + 1
Bucle
Cerrar #1
MsgBox "Éxito"
Conector final