วิธีการคัดลอกไปยังคลิปบอร์ดใน Microsoft Visual Basic

เนื้อหา

• คำสั่ง

มีประโยชน์ที่จะทราบวิธีใช้คลิปบอร์ดของระบบเพื่อคัดลอกข้อมูลจากแอปพลิเคชันหนึ่งไปยังอีกแอปหนึ่งโดยใช้ Microsoft Visual Basic .NET (VB.NET) คลิปบอร์ดเป็นสภาพแวดล้อมที่ใช้ร่วมกันระหว่างโปรแกรมใน Windows ทำให้การแบ่งปันข้อมูลทำได้ง่ายขึ้น โปรแกรมเมอร์มักต้องการส่งออกข้อมูลจากแอปพลิเคชัน VB.NET ไปยังสเปรดชีต Microsoft Excel อย่างไรก็ตามคุณสามารถเขียนรหัส VB.NET เพื่อคัดลอกข้อมูลไปยังคลิปบอร์ดของระบบและวางลงในแผ่นงาน Excel

คำสั่ง

คุณสามารถคัดลอกข้อมูลไปยังคลิปบอร์ดของระบบโดยใช้ Visual Basic .NET (อุโมงค์ city.binary ดิจิตอลและภาพเมืองตอนกลางคืนโดย Stasys Eidiejus จาก Fotolia.com)

1. ป้อนรหัสต่อไปนี้ในรูทีนย่อยใหม่ในโครงการ VB.NET ของคุณเพื่อประกาศตัวแปร Excel ของคุณ:

   Dim XLApp เป็น Microsoft.Office.Interop.Excel.Application = ไม่มี Dim XLBooks เป็น Microsoft.Office.Interop.Excel.Workbooks = ไม่มี DimBook XLBook เป็น Microsoft.Office.Interop.Excel.Workbook = ไม่มี Dim XLSheets ของ Microsoft .Excel.Sheets = ไม่มี XLSheet Dim เป็น Microsoft.Office.Interop.Excel.Worksheet = ไม่มีอะไร

2. ป้อนรหัสต่อไปนี้เพื่อเพิ่มสตริงข้อความในคลิปบอร์ดและรับข้อความจากมัน:

   Dim processObject เป็นกระบวนการใหม่คลิปบอร์ด SetDataObject ("นี่จะถูกคัดลอกไปยังคลิปบอร์ดและเพิ่มลงใน Excel")

   Dim clipboardObject As IDataObject = Clipboard.GetDataObject ()

   
   

3. ป้อนรหัสต่อไปนี้เพื่อเปิด Excel และเพิ่มแผ่นงานใหม่:

   XLApp = ใหม่ Microsoft.Office.Interop.Excel.Application XLApp.Visible = จริง XLApp.DisplayAlerts = เท็จ XLBook = CType (XLApp.Workbooks.Add (), Microsoft.Office.Incelop.Excel.Workbook) XLBooks = XLApp.Workbooks = CType (XLBooks (1) .Sheets.Item (1), Microsoft.Office.Interop.Excel.Worksheet) XLSheets = XLBook.Worksheets

4. พิมพ์รหัสต่อไปนี้เพื่อเพิ่มลำดับจากคลิปบอร์ดไปยัง Excel:

   ด้วย clipboardObject If .GetDataPresent (DataFormats.Text) จากนั้น XLSheet.Cells (1, 1) = .GetData (DataFormats.Text) สิ้นสุดหากลงท้ายด้วย

5. เรียกใช้โปรแกรมของคุณ