كيفية نسخ إلى الحافظة في مايكروسوفت البصرية الأساسية

المحتوى

• الاتجاهات

من المفيد معرفة كيفية استخدام حافظة النظام لنسخ المعلومات من تطبيق إلى آخر باستخدام Microsoft Visual Basic .NET (VB.NET). الحافظة هي بيئة يتم مشاركتها بين البرامج في Windows ، مما يسهل مشاركة المعلومات. غالبًا ما يحتاج المبرمجون إلى تصدير المعلومات من تطبيق VB.NET إلى جدول بيانات Microsoft Excel. ومع ذلك ، يمكنك كتابة رمز VB.NET لنسخ البيانات إلى حافظة النظام ولصقه في ورقة عمل Excel.

الاتجاهات

يمكنك نسخ البيانات إلى حافظة النظام باستخدام Visual Basic .NET (المدينة الرقمية. نفق ومدينة في الليل صورة من قبل Stasys Eidiejus من Fotolia.com)

1. أدخل الكود التالي في روتين فرعي جديد في مشروع VB.NET لإعلان متغيرات Excel الخاصة بك:

   Dim XLApp As Microsoft.Office.Interop.Excel.Application = Nothing Dim XLBooks As Microsoft.Office.Interop.Excel.Workbooks = Nothing Dim XLBook As Microsoft.Office.Interop.Excel.Workbook = Nothing Dim XLSheets As Microsoft.Office.Interop .Excel.Sheets = لا شيء خافت XLSheet باسم Microsoft.Office.Interop.Excel.Worksheet = لا شيء

2. أدخل الرمز التالي لإضافة سلسلة نصية إلى الحافظة واحصل على النص منه:

   Dim processObject باسم New Process Clipboard.SetDataObject ("يتم نسخ هذا إلى الحافظة وإضافته إلى Excel.")

   Dim clipboardObject باسم IDataObject = Clipboard.GetDataObject ()

   
   

3. أدخل الكود التالي لفتح Excel وإضافة ورقة عمل جديدة:

   XLApp = جديد Microsoft.Office.Interop.Excel.Application XLApp.Visible = True XLApp.DisplayAlerts = False XLBook = CType (XLApp.Workbooks.Add ()، Microsoft.Office.Interop.Excel.Workbook) XLBooks = XLApp.Workbooks XLSheet = CType (XLBooks (1). الأوراق. البند (1) ، Microsoft.Office.Interop.Excel.Worksheet) XLSheets = XLBook.Worksheets

4. اكتب الرمز التالي لإضافة التسلسل من الحافظة إلى Excel:

   مع clipboardObject If .GetDataPresent (DataFormats.Text) ثم XLSheet.Cells (1، 1) = .GetData (DataFormats.Text) End If End With

5. تشغيل البرنامج الخاص بك