VBA如何對Windows剪切板進(jìn)行操作？1、設(shè)置剪貼板的內(nèi)容僅對窗體有效。DataObject是msform的子窗體。Dim mydata as new DataObject”聲明一個(gè)新的DataO

VBA如何對Windows剪切板進(jìn)行操作？

1、設(shè)置剪貼板的內(nèi)容僅對窗體有效。DataObject是msform的子窗體。Dim mydata as new DataObject”聲明一個(gè)新的DataObject類我的數(shù)據(jù).SetText“文本內(nèi)容”將文本設(shè)置為Me.TextBox1文本框. 文本作為文本傳遞MyData.PutInClipboard文件發(fā)送到剪貼板2。讀取剪貼板的內(nèi)容Getclipboardtext（）“將剪貼板中的文本輸出到一個(gè)變量。Dim mydata as dataobjectset mydata=new DataObject“如果剪貼板上的數(shù)據(jù)是文本，如果MyData.GetFormat格式（1） =true然后“從剪貼板獲取數(shù)據(jù)MyData.GetFrom剪貼板“將數(shù)據(jù)返回到函數(shù)值getclipboardtext=我的數(shù)據(jù).GetText（1） 結(jié)束IfEnd函數(shù)

VBA操作剪貼板數(shù)據(jù)

1。設(shè)置剪貼板的內(nèi)容

“僅對窗體有效，DataObject是msform的子類

dim mydata as new DataObject”聲明一個(gè)新的DataObject類我的數(shù)據(jù).SetText“文本內(nèi)容”將文本設(shè)置為Me.TextBox1文本框. 文本作為文本MyData.PutInClipboard文件將剪貼板中的文本輸出到變量。

Dim mydata as DataObject

設(shè)置mydata=new DataObject

“如果剪貼板上的數(shù)據(jù)是文本

如果MyData.GetFormat格式（1） =true then

“從剪貼板獲取數(shù)據(jù)MyData.GetFrom剪貼板

“將數(shù)據(jù)返回到函數(shù)值

getclipboardtext=我的數(shù)據(jù).GetText（1） [如果結(jié)束]結(jié)束函數(shù)

您可以使用遵循VBA。其邏輯是excel從access獲取數(shù)據(jù)，而不是復(fù)制數(shù)據(jù)。Sub Refresh Data（）Dim Conn為新ADODB.ConnectionDim連接strConn為StringDim strSQL為StringDim rs為NewADODB.RecordsetDim文件最大行作為整數(shù)路徑=此工作簿。路徑&安培應(yīng)用程序路徑分隔符& “測試.accdb“”設(shè)置訪問文件路徑連接提供商= " 微軟.ACE.OLEDB.12.0“strConn=”數(shù)據(jù)源=“&StpathstrSQL=“從報(bào)表摘要中選擇*打開數(shù)據(jù)庫”連接打開（結(jié)構(gòu)）rs.打開strSQL，連接，1，1應(yīng)用程序屏幕更新= FalseApplication.DisplayAlerts文件=假IF轉(zhuǎn)爐=False，則為Sheets（“Database”）。Range（“A2:AY50000”）。ClearContents Sheets（“Database”）。Range（“A2”）。CopyFromRecordset rs Else工作表（“Database”）。范圍（“A2:AY10”）=“0”結(jié)束Ifrs.CloseSet公司盧比=什么都沒有。關(guān)上附屬的