tagCANDY CGI VBレスキュー(花ちゃん) - VBレスキュー(花ちゃん)の投稿サンプル用掲示板 - Visual Basic 6.0 VB2005 VB2010
VB2005用トップページへVBレスキュー(花ちゃん)のトップページVB6.0用のトップページ
VBレスキュー(花ちゃん)の投稿サンプル用掲示板
     サンプル投稿用掲示板  VB2005 〜 用トップページ  VB6.0 用 トップページ
エクセルの表をクリップボード経由でVBに貼付活用(VB6.0) ( No.0 )  [親スレッドへ]
日時: 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

'ここまで
'------------------------------------------------------------------

既出でしたら申し訳ありません。
ではでは失礼(・ω・)ノシ



 [スレッド一覧へ] [親スレッドへ]