Excel VBA質問箱 IV

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

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


16853 / 76732 ←次へ | 前へ→

【65342】Re:ユーザーフォームのエクスポートとインポート
発言  Jaka  - 10/5/13(木) 13:52 -

引用なし
パスワード
   参考
ht tp://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=53177;id=excel

フォームの場合
fpas = ThisWorkbook.Path
ThisWorkbook.VBProject.VBComponents("UserForm1").Export ("UserForm1.frm")
Workbooks("Book1.xls").VBProject.VBComponents.Import (fpas & "\UserForm1.frm")


With ThisWorkbook
  .VBProject.VBComponents.Item("Module1").Export Filename:="C:\xxxx\Module1.bas"
  'C:\xxxxに標準モジュールをエクスポートします。
  .VBProject.VBComponents.Item("UserForm1").Export Filename:="C:\xxxx\UserForm1.frm"
  'C:\xxxxにユーザーフォームをエクスポートします。
End With

///////////////

Sub インポート()
Dim FileNM As Variant, ブック名 As String, pat As String
ブック名 = "Book2.xls"
pat = ThisWorkbook.Path
For Each FileNM In CreateObject("Scripting.FileSystemObject").GetFolder(pat).Files
  If Right(FileNM.Name, 3) = "bas" Or Right(FileNM.Name, 3) = "frm" Then
    Workbooks(ブック名).VBProject.VBComponents.Import (FileNM)
  End If
Next
End Sub

Sub エクスポート()
Dim obj As Object, pat As String
pat = ThisWorkbook.Path
With Workbooks("フォーム、モジュール抜き出しファイル.xls")
  For Each obj In .VBProject.VBComponents
    If obj.Type = 1 Then
      obj.Export Filename:=pat & "\" & obj.Name & ".bas"
    ElseIf obj.Type = 1 Or obj.Type = 3 Then
      obj.Export Filename:=pat & "\" & obj.Name & ".frm"
    End If
  Next
End With
End Sub

0 hits

【65341】ユーザーフォームのエクスポートとインポート 友子 10/5/13(木) 12:25 質問
【65342】Re:ユーザーフォームのエクスポートとイン... Jaka 10/5/13(木) 13:52 発言
【65343】Re:ユーザーフォームのエクスポートとイン... 友子 10/5/13(木) 14:40 質問
【65346】Re:ユーザーフォームのエクスポートとイン... Jaka 10/5/13(木) 15:12 発言
【65347】Re:ユーザーフォームのエクスポートとイン... 友子 10/5/13(木) 15:30 お礼
【65349】あ、 Jaka 10/5/13(木) 15:42 発言
【65350】Re:あ、 友子 10/5/13(木) 17:53 お礼

16853 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free