ሁሉም የማይክሮሶፍት የቢሮ ትግበራዎች አውቶማቲክን ይደግፋሉ ፡፡ እንደ COM አገልጋዮች ሆነው ሊሠሩ ይችላሉ እና ከሰነድ-የተከተቱ ወይም ከውጭ እስክሪፕቶች ጥቅም ላይ ይውላሉ ፡፡ ስለዚህ ፣ ከ ‹vba› ስክሪፕት ወደ ኤክሴል ሰነድ መረጃ መፃፍ ይችላሉ ፡፡
አስፈላጊ
- - የ Microsoft Excel መተግበሪያን ተጭኗል;
- - ቪዥዋል መሰረታዊ አርታኢ / የጽሑፍ አርታኢ ፡፡
መመሪያዎች
ደረጃ 1
የ vba ኮዱን ለማስተናገድ መያዣ ይፍጠሩ ፡፡ ስክሪፕቱ በሰነድ ውስጥ እንዲካተት ከተፈለገ ተገቢውን ፋይል ወደ ማይክሮሶፍት ኤክስኤል ይስቀሉ። Alt + F11 ን በመጫን የእይታ መሰረታዊ አርታዒውን ይክፈቱ። አስፈላጊ ከሆነ አዲስ ሞዱል (በሞዴል አስገባ ምናሌ ውስጥ የሞዱል ንጥል) ይፍጠሩ። አንዱን ሞጁሎች ወይም ቅጾች ይክፈቱ ፡፡ ለቅጽ መቆጣጠሪያዎ አንድ ተቆጣጣሪ ይፍጠሩ ፣ ወይም አንድ አሰራር ወደ ሞዱል ያክሉ። ለምሳሌ:
ንዑስ ሙከራ ()
ንዑስ ንዑስ
ለብቻዎ ብቸኛ ስክሪፕት እያዘጋጁ ከሆነ (ይህ ማለት በዊንዶውስ ስክሪፕት አስተናጋጅ ስር ይሠራል) ፣ ከዚያ በቀላሉ በጽሑፍ አርታኢ ውስጥ ከ vbs ቅጥያ ጋር ፋይል ይፍጠሩ።
ደረጃ 2
በሰነዱ ውስጥ በተካተተው ስክሪፕት ውስጥ በሂደቱ መጀመሪያ ላይ ተለዋዋጭ መግለጫዎችን ያክሉ
ደብዛዛ oWorkbook እንደ Excel. Workbook
ዲ ኤስ ኤ ሉኬት እንደ ኤክሴል
የመጀመሪያው ለኤክሴል መጽሐፍ መጽሐፍ እቃ ማጣቀሻ ለማከማቸት ሲሆን ሁለተኛው ደግሞ ለሉህ ነው ፡፡
ደረጃ 3
ተለዋዋጮችን ከእቃ ማጣቀሻዎች ጋር ያስጀምሩ። በ vbs ስክሪፕት ውስጥ የ Excel መተግበሪያን ነገር ይፍጠሩ (ይህ ኤክሴልን እንደ COM አገልጋይ ይጀምራል)
OApplication = CreateObject ("Excel. Application") ያቀናብሩ።
በሰነዱ ውስጥ በተካተተው ስክሪፕት ውስጥ የአሁኑን የመተግበሪያ ዕቃን የሚያመለክተው የ “OPLlication” ተለዋዋጭ ከመሆን ይልቅ የአለም አቀፉ የመተግበሪያ ነገር ጥቅም ላይ ይውላል። አንድን ይምረጡ ወይም አዲስ የ Excel የስራ መጽሐፍ ይክፈቱ። ለምሳሌ:
OWorkbook ያዘጋጁ = የመተግበሪያ ደብተር (1)
OWorkbook = Application. Workbooks ("Book1") ያዘጋጁ
OWorkbook = oApplication. Workbooks. Open ("D: / vic / አግባብነት / tmp / test.xls") ያዘጋጁ
ወደ ተፈለገው የመጽሐፉ ወረቀት አገናኝ ያግኙ-
OSheet = oApplication. Sheets ("Sheet1") ያዘጋጁ
ደረጃ 4
ከ vba ስክሪፕት ወደ ኤክሴል መረጃ ይጻፉ። በቀደመው ደረጃ የተጠቀሰው የሥራ መጽሐፍ የሉህ ነገር ንብረት የሆነውን የሕዋሳትን ስብስብ ወደ የ ‹Sheet› ተለዋዋጭ ይጠቀሙ ፡፡ በአንዱ ሴል ላይ አንድ ሕብረቁምፊ የመጻፍ ምሳሌ እንደዚህ ይመስላል:
oSheet. Cells (1, 1) = "ሕብረቁምፊው ወደ ሴል A1 ይፃፋል"
ደረጃ 5
በ vbs ስክሪፕት ውስጥ መረጃውን ለማስቀመጥ ኮዱን ያክሉ እና የ Excel መተግበሪያውን ያጥፉ
oWorkbook. ቁጠባ
o ማመልከቻ
ደረጃ 6
ስክሪፕቱን ያስቀምጡ እና ያስፈጽሙ። በ Visual Basic Editor ውስጥ Ctrl + S ን ይጫኑ ከዚያም ጠቋሚውን በሂደቱ አካል ውስጥ ያኑሩ እና F5 ን ይጫኑ ፡፡ የ vbs ስክሪፕትን በዲስክ ላይ ያስቀምጡ እና ከዚያ እንደ መደበኛ ፋይል ያሂዱት።