En cuanto al problema de convertir VFP y Excel, por favor entre...
Primero, abra la tabla EXECL a través de la API, luego acceda a EXECL uno por uno, extraiga los datos del nombre y el número del estudiante, busque el nombre correspondiente en la tabla DBF y luego reemplace el número del estudiante en el DBF. table.
p>KKKK='C:\Student ID.EXECL' amp;amp;amp;Suponiendo que el archivo Student ID.EXECL está en C:\, se puede modificar de acuerdo con la información real. situación
DECLARAR INTEGER ShellExecute IN shell32.DLL INTEGER HWND, STRING, STRING lpszFile, STRING, STRING, INTEGER
eole=CREATEOBJECT('Excel.application')
eole.Workbooks.Open(KKKK) amp; Abrir el libro de trabajo especificado
eole.visible=.F No mostrar la ventana de Excel
eole.selection. .WrapText = .T.
xlSheet=eole.Sheets(1) amp; Defina la tabla 1 en la tabla como variable XLSHEET
I=2 amp; la segunda línea, se puede configurar de acuerdo con la situación real /p>
XH=xlSheet.Cells(I, 1).value amp Proponga la primera columna de datos__ asumiendo que es el número de estudiante
XM=XLSHEET.CELLS(I, 2) .VALUE & Datos actuales de la columna 2 __ se supone que son el nombre
SELE 0
USE C:\Student.DBF
DO WHILE !EMPTY (XH)
***Cuando la variable XH no está vacía, bucle
SELE estudiante
LOCA FOR TRIM(nombre)==XM
IF FOUND()
REPL ID de estudiante CON XH
ENDIF
I=I 1
XH=xlSheet. Cells(I, 1).value amp; Proponga los datos en la fila I y la columna 1 __ se supone que es el número del estudiante.
XM=XLSHEET. .CELLS(I, 2).VALUE amp; Proponer datos en la fila I, columna 2__ se supone que es el nombre
ENDDO
eole.ActiveWorkbook.Close(.T. )
eole.Workbooks.close amp ;amp; Cerrar el libro
eole.quit &