Red de conocimiento informático - Material del sitio web - ¿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.

¿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

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