///
/// Lire les données d'Excel
///
/// Chemin
///
public DataSet ImportFromExcel (string filePath)
{
DataSet ds = new DataSet();
string connString = "Provider = Microsoft.Jet.OLEDB.4.0; Source de données = " + filePath + ";Propriétés étendues="Excel 8.0;HDR=Oui;IMEX=1"";
Table DataTable = OleDbHelper.GetExcelTables(connString);
if(table == null || table.Rows.Count
{
retour nul ;
}
foreach (DataRow dr dans table.Rows)
{
string cmdText = "select * from [" + dr["TABLE_NAME"].ToString() + "]";
DataTable dt = OleDbHelper.FillDataTable(connString, cmdText);
dt.TableName = dr["TABLE_NAME"].ToString();
ds.Tables.Add(dt);
}
retour dès;
}
L'étape suivante consiste à écrire le DataSet dans la base de données
Il n'y a pas de meilleur moyen d'importer des tableaux Excel dans vfp, mais cela peut être réalisé en lisant Excel.
Ce qui suit est un exemple de vfp lisant directement un fichier EXCEL :
M_File=GETFILE('xls','Fichier de commande')
SI M_File=""
=MESSAGEBOX ("Veuillez sélectionner le fichier de reçu de commande à importer!", 0+48, "Prompt")
RETOUR
AUTRE
IF JUSTEXT(M_FILE)#"XLS" et obtenir l'extension de fichier
=MESSAGEBOX ("Le document EXCEL que vous avez sélectionné n'est pas !", 0+48, "Prompt")
RETOUR
ENDIF
ENDIF
UTILISER le formulaire de commande de livres
ZAP
myexcel=createobject('excel.application') &Créer un objet
myexcel.visible=.f.&invisible
bookexcel=myexcel.workbooks.open(M_File) et ouvrez le fichier spécifié
o_SheetName=myexcel.application.ActiveSheet.Name &Obtenir le nom de la feuille de calcul actuellement active
UsedRange =bookexcel.worksheets(o_SheetName).UsedRange & renvoie la zone utilisable dans la feuille de calcul, les propriétés de la table UsedRange
o_rows=UsedRange.rows.count et lignes récapitulatives
o_cols=UsedRange.columns.count et colonne récapitulative
SI o_rows
=MESSAGEBOX ("Le nombre de lignes de données à importer est trop petit, veuillez vérifier !", 0+16, "Prompt")
AUTRE
POUR i=2 À o_rows
m1=myexcel.cells(i,1).value & ISBN
m2=myexcel.cells(i,2).value & titre du livre
m3=myexcel.cells(i,3).value &Publisher
m4=myexcel.cells(i,4).value &author
m5=myexcel.cells(i,5).valeur et prix
m6=myexcel.cells(i,6).valeur et quantité
AJOUTER UN BLANC
REMPLACER ISBN PAR m1, titre du livre AVEC m2, éditeur AVEC m3, auteur AVEC m4, prix AVEC m5, quantité AVEC m6
ENDFOR
ENDIF
myexcel.workbooks.close &Fermer l'espace de travail
myexcel.quitter et fermer Excel
sourcil
Ce qui précède est le contenu détaillé de. pour plus d'informations, suivez d'autres articles connexes sur le site Web de PHP en chinois!