כיצד לייבא מידע מ- Excel ל- Visual Basic 6

יצירת מידע ב- Excel קלה יותר מאשר ב- VB6, כך שלפעמים זה יותר מעשי לייבא מידע מ- Excel ל- VB6.

שלב 1

התחל פרוייקט Visual Basic חדש.

שלב 2

הוסף את תיבת הרשימה ואת לחצן פקודה לטופס.

שלב 3

בחר "Project Project" ולאחר מכן בחר באפשרות "הפניות". משם, בחר "Microsoft Excel Library".

שלב 4

הזן את הקוד הבא: פרטי Sub Command1_Click () עב objXLApp כמו Excel.Application עמום intLoopCounter כמספר שלם

הגדר objXLApp = Excel חדש. Application

עם objXLApp .Workbooks.Open "C: \ File.xls" .Workbooks (1) .Worksheets (1). בחר

עבור intLoopCounter = 1 ל Cint (.ActiveSheet.Cells.SpecialCells (xlCellTypeLastCell) .Row) List1.AddItem .Range ("אל" & intLoopCounter) הבא intLoopCounter

(1) סגור את השקר עם סיום

הגדר objXLApp = סוף דבר

שלב 5

שנה את "C: \ File.xls" לשם קובץ ה- Excel שלך. פעולה זו תייבא כעת את המידע מהגיליון האלקטרוני של Excel.