- 日時： 2008/07/08 13:36
- 名前： ももんが
- ***********************************************************************************
* カテゴリー：[エクセル][クリップボード][] *
* キーワード：クリップボード,Excel,VBにペースト *
***********************************************************************************
-----------------------------------------------------------------------------------
投稿日 ： 2008/07/08 13:36
投稿者 ： ももんが
-----------------------------------------------------------------------------------
Excelからクリップボード経由でVBに読み込ませる処理に関する投稿です。
VBレスキューにアップされているソースをちょっと変えました。
本家ではファイルに保存していますが、保存しない方法です。
自分なりにうまくいったのでUPします
ソース前部分同一
'------------------------------------------------------------------
'クリップボードの内容をVB側に貼り付け
'クリップボードにテキストデータが入っているかチェック
If Clipboard.GetFormat(vbCFText) Then
'テキストデータならテキストボックスに貼り付け
Text1.Text = Clipboard.GetText()
End If
'クリップボードにビットマップが入っているかチェック
If Clipboard.GetFormat(vbCFBitmap) Then
'ビットマップならピクチャーコントロールに貼り付け
Set Picture1.Picture = Clipboard.GetData()
End If
'------------------------------------------------------------------
'ここまで同一
'ここから変更
dim spl1() as string '一段階目のSplit格納用配列
dim spl2() as string '二段階目のSplit格納用配列
dim i as integer 'ループ用変数
'テキストを改行で分割
spt1 = Split(Text1.Text,vbCrLf)
'テキストの終わりまでループ
for i = 0 to spt1.Length - 1
'テキストをタブで分割
spt2 = Split(spt1(i),vbTab)
'必要なら配列の長さを揃えて
Array.Resize(spt2,20)
'DataGridViewなどに入れる
DataGridVeiw1.Rows.Add(spt2(0),・・・
next
'ここまで
'------------------------------------------------------------------
既出でしたら申し訳ありません。
ではでは失礼(・ω・)ﾉｼ
|
エクセルの表をクリップボード経由でVBに貼付活用(VB6.0)