タイトル : Re^3: クリップボードデータの文字化けについて 投稿日 : 2009/05/14(Thu) 10:31 投稿者 : 花ちゃん
> 説明不足で申し訳ありません。 > エクセルで作業している時に、後でちょっと使いたい表、関数等をクリップボード経由でファイルに保存しておき、後で再利用するようなものを考えています。なのでエクセルで取得し、エクセルに貼り付けます。 先にも言いましたが前後の詳しい情報を教えて頂かないと、貴方のやりたい事(結果)は 何となく理解できますが、その方法がまったく理解できません。 >クリップボード経由でファイルに保存 どのような形式で保存するつもりでしょうか? >エクセルに貼り付けます。 どのようにして貼り付けるのでしょうか? 文字化けするのがExcelに貼り付けた時に文字化けするなら問題かも知れませんが、 そうでないなら問題ないのでは。 下記を試した限りでは、貴方が考えているような方法ではうまく行かない(役に立たない) ように思います。 Private myHtm As String Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click Dim iData As IDataObject = Clipboard.GetDataObject() If iData.GetDataPresent(DataFormats.Html) Then myHtm = CType(iData.GetData(DataFormats.Html), String) End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button2.Click Clipboard.SetDataObject(New DataObject) System.Windows.Forms.Clipboard.SetDataObject(myHtm, True) End Sub |