Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

6027 / 9994

←次へ　｜　前へ→


	【7175】Re:AceessからExcelを操って「図のリンク...

小僧 - 06/1/27(金) 18:18 -


	引用なし

	パスワード

▼nn さん：
こんにちは。

>とりあえず　Excelのマクロで「図のリンク貼り付け」を行うコードを作り、
>それをAccessで動かそうとしているのですが、

ExcelVBA でも同じ事が言えますが、Select、Activate は
なるべく使わない方が無難ですよ。

Sub Excelに図を貼り付ける()
'要参照設定 Microsoft Excel x.x Object Library
Dim xlsApp As Excel.Application
Dim xlsWkb(1 To 2) As Excel.Workbook
Dim SName As String
Dim PName As String
Dim Pic As Object

　　SName = "D:\Source.xls"
　　PName = "D:\Paste.xls"

　　Set xlsApp = CreateObject("Excel.Application")
　　Set xlsWkb(1) = xlsApp.Workbooks.Open(SName)
　　Set xlsWkb(2) = xlsApp.Workbooks.Open(PName)
　　
　　xlsWkb(1).Sheets("Source").Range("B2:H17").Copy
　　
　　With xlsWkb(2).Sheets("Paste")
　　　　Set Pic = .Pictures.Paste(True)
　　　　　　Pic.Cut
　　　　.Paste .Range("B7")
　　　　Set Pic = Nothing
　　End With

　　xlsApp.CutCopyMode = False
　　xlsWkb(2).Close True: Set xlsWkb(2) = Nothing
　　xlsWkb(1).Close False: Set xlsWkb(1) = Nothing
　　xlsApp.Quit: Set xlsApp = Nothing
End Sub

748 hits

▼

【7162】AceessからExcelを操って「図のリンク貼り付け」がしたい nn 06/1/27(金) 11:58