| Random Thoughts |
| Ask not for whom the bell tolls, let the machine get it.
|
| 言語 |
|
|
|
| フォーラムニュース: 質問、相談カテゴリに「SolidWorks操作方法」に関するフォーラムを追加しました。(2003/11/27) |
| いらっしゃい、 ゲストさん. まずはこちら→ ログイン または 登録. 2024/05/12 - 21:49:14 |
|
     |
|
著者
|
トピック: APIでEXCEL操作について (閲覧数 6239 回) |
|
shamoji
Full メンバー
 オフライン
投稿: 45
I'm a llama!
|
 |
APIでEXCEL操作について
« 投稿日: 2010/02/08 - 11:13:57 » |
 |
皆様こんにちは。
ソリッドワークスのマクロでEXCELを起動することはできないのでしょうか？
簡単なマクロを作ってみたのですが、VB上ではエクセルを起動できますが、
ソリッドワークスのマクロ実行からは、起動することが出来ません。
分かるかたがいらっしゃいましたら、ご教授いただけませんか。
宜しくお願いします。
|
|
|
|
|
Makoron
カタマリの王様!?
オフライン
投稿: 1277
SW2011SP5.0
|
|
Re:APIでEXCEL操作について
« 返信 #1 投稿日: 2010/02/09 - 08:52:54 » |
|
こんな感じでどうでしょうか
＊参照設定で「Microsoft Excel 10.0 Object Library」のチェックをつける必要があります。
（Officeのバージョンによってライブラリの名前が異なる場合もあります。）
Sub main()
Dim swApp As SldWorks.SldWorks
Dim swModelDoc2 As SldWorks.ModelDoc2
Set swApp = Application.SldWorks
Set swModelDoc2 = swApp.ActiveDoc
' Excel起動
Dim xlsApp As Excel.Application
Set xlsApp = CreateObject("Excel.Application")
xlsApp.UserControl = True
xlsApp.Visible = True
' 新規ワークブック
Dim xlsWorkbook As Excel.Workbook
Set xlsWorkbook = xlsApp.Workbooks.Add
' 全てのシートにシート名を書き込む
Dim xlsWorksheet As Excel.Worksheet
For i = 1 To xlsWorkbook.Worksheets.Count
Set xlsWorksheet = xlsWorkbook.Worksheets(i)
xlsWorksheet.Range("A1").Value = "シート名："
xlsWorksheet.Range("B1").Value = xlsWorksheet.Name
Next
' ワークブックを保存して閉じる
xlsWorkbook.Close (True)
' 他のワークブックが開いてない場合にExcelを終了
If xlsApp.Workbooks.Count = 0 Then
xlsApp.Quit
End If
End Sub
|
|
|
|
|
shamoji
Full メンバー
オフライン
投稿: 45
I'm a llama!
|
|
Re:APIでEXCEL操作について
« 返信 #2 投稿日: 2010/02/10 - 10:43:02 » |
|
Makoron様、こんにちは。
ご返信有難うございました。
早速試してみましたが、うまくいきました。
いつも、親切に有難うございます。
|
|
|
|
|
|
|
|
|
記録済み