Cara Salin ke Clipboard di Microsoft Visual Basic

Pengarang: William Ramirez
Tarikh Penciptaan: 18 September 2021
Tarikh Kemas Kini: 14 Jun 2024
Anonim
VBA Tips & Trick: Cara Copy TEXT Ke Clipboard Pada USerForm
Video.: VBA Tips & Trick: Cara Copy TEXT Ke Clipboard Pada USerForm

Kandungan

Adalah berguna untuk mengetahui cara menggunakan papan klip sistem untuk menyalin maklumat dari satu aplikasi ke yang lain menggunakan Microsoft Visual Basic .NET (VB.NET). Papan klip adalah persekitaran yang dikongsi antara program-program di Windows, menjadikannya lebih mudah untuk berkongsi maklumat. Pengaturcara sering perlu mengeksport maklumat dari aplikasi VB.NET ke spreadsheet Microsoft Excel. Walau bagaimanapun, anda boleh menulis kod VB.NET untuk menyalin data ke papan keratan sistem dan menampalnya ke lembaran kerja Excel.


Arahan

Anda boleh menyalin data ke papan klip sistem dengan menggunakan Visual Basic .NET (terowong digital city.binary dan bandar pada imej malam oleh Stasys Eidiejus dari Fotolia.com)

  1. Masukkan kod berikut dalam subrutin baru dalam projek VB.NET anda untuk mengisytiharkan pemboleh ubah Excel anda:

    Dim XLApp Sebagai Microsoft.Office.Interop.Excel.Application = Tidak Dim Dim XLBooks Sebagai Microsoft.Office.Interop.Excel.Workbooks = Tidak Dim Dim XLBook Sebagai Microsoft.Office.Interop.Excel.Workbook = Tidak Dimensi XLSheets Sebagai Microsoft.Office.Interop .Excel.Sheets = Tiada Dimensi XLSheet Sebagai Microsoft.Office.Interop.Excel.Worksheet = Tiada apa-apa

  2. Masukkan kod berikut untuk menambah rentetan teks ke papan keratan dan dapatkan teks daripadanya:

    Proses Dimasukkan sebagai Proses Baru Clipboard.SetDataObject ("Ini disalin ke papan keratan dan ditambah ke Excel.")


    Dim clipboardObject As IDataObject = Clipboard.GetDataObject ()

  3. Masukkan kod berikut untuk membuka Excel dan tambah lembaran kerja baru:

    XLApp = Baru Microsoft.Office.Interop.Excel.Application XLApp.Visible = True XLApp.DisplayAlerts = Palsu XLBook = CType (XLApp.Workbooks.Add (), Microsoft.Office.Interop.Excel.Workbook) XLBooks = XLApp.Workbooks XLSheet = CType (XLBooks (1) .Sheets.Item (1), Microsoft.Office.Interop.Excel.Worksheet) XLSheets = XLBook.Worksheets

  4. Taipkan kod berikut untuk menambah urutan dari Clipboard ke Excel:

    Dengan clipboardObject If .GetDataPresent (DataFormats.Text) Kemudian XLSheet.Cells (1, 1) = .GetData (DataFormats.Text) Akhir Jika Akhir Dengan

  5. Jalankan program anda