FileMakerからVBSを利用してExcelテンプレートに流し込む

FileMakerのデータから資料作成

FileMakerからVBSを実行する

VBS実行テスト
# ##################################################
# VBSの実行テスト
# ##################################################

変数を設定 [$path1; 値: Get ( テンポラリパス )]
変数を設定 [$path2; 値: Middle ( $path1; 2; Length ( $path1 ) - 1 )]

# VBSファイルの保存用パス
変数を設定 [$vbs1; 値: $path1 & "test.vbs"]

# VBSファイルの実行用パス
変数を設定 [$vbs2; 値: $path2 & "test.vbs"]

# VBSファイルの中身の設定
フィールド設定 [VBS::VBS; "MsgBox \"VBSの実行テスト\""]

# VBSファイルの中身の設定
フィールド内容のエクスポート [VBS::VBS;「$vbs1」; フォルダを作成:オフ]

# VBSの実行
Eventを送信 [「aevt」;「odoc」; $vbs2]

FileMakerからExcelテンプレートに流し込む

1. FileMakerからデータを出力する
2. VBSを実行してExcelテンプレートを開く
3. VBSからExcelマクロを実行する
4. マクロで出力したExcelファイルの内容をテンプレートに流し込む

流込データ出力
# ##################################################
# 流込データ出力
# ##################################################

変数を設定 [$path1; 値: Get ( テンポラリパス )]

# 流込テキスト
変数を設定 [$XLpath; 値: $path1 & "base.xlsx"]
レコードのエクスポート [ダイアログあり:オフ; フォルダを作成:オン;「$XLpath; Unicode (UTF-16)」]

# 流込画像
変数を設定 [$IMGpath; 値: $path1 & test::写真]
フィールド内容のエクスポート [test::写真;「$IMGpath」; フォルダを作成:オン]

# テンプレートファイル
変数を設定 [$IMGpath; 値: $path1 & test::テンプレート]
フィールド内容のエクスポート [test::テンプレート;「$TEMPpath」; フォルダを作成:オン]

VBA
Option Explicit
Sub test(XLpath As String, IMGpath As String)
  Application.ScreenUpdating = False
  
  Dim ws As Worksheet
  Dim wb As Workbook
  Dim picture As picture
  
  Set ws = ThisWorkbook.Worksheets(1)
  Set wb = Workbooks.Open(XLpath, ReadOnly)
  Set picture = ws.Pictures.Insert(IMGpath)
  
  ws.Cells(4, 5) = wb.Worksheets(1).Cells(2, 1)
  ws.Cells(6, 5) = wb.Worksheets(1).Cells(2, 2)
  ws.Cells(8, 5) = wb.Worksheets(1).Cells(2, 3)
  ws.Cells(10, 5) = wb.Worksheets(1).Cells(2, 4)
  ws.Cells(12, 5) = wb.Worksheets(1).Cells(2, 5)
  ws.Cells(14, 5) = wb.Worksheets(1).Cells(2, 6)
  ws.Cells(20, 5) = wb.Worksheets(1).Cells(2, 7)
  ws.Cells(29, 5) = wb.Worksheets(1).Cells(2, 8)
  picture.Left = ws.Cells(4, 17).Left + 1
  picture.Top = ws.Cells(4, 17).Top + 1
  picture.ShapeRange.Width = ws.Cells(4, 17).Width * 6 - 2
  picture.Top = ws.Cells(4, 17).Top + (ws.Cells(4, 17).Height * 8 - picture.ShapeRange.Height - 2) / 2
  wb.Close False
  Application.ScreenUpdating = True
End Sub

Excel作成
# ##################################################
# Excelテンプレートへの流し込み
# ##################################################

スクリプト実行 [指定:一覧から;「流込データ出力」; 引数:]

変数を設定 [$path1; 値: Get ( テンポラリパス )]
変数を設定 [$path2; 値: Substitute ( Middle ( $path1; 2; Length ( $path1 ) - 1 ); "/"; "\\" )]

# 流し込みテキストの保存場所
変数を設定 [$XLpath; 値: $path2 & test::テンプレート]

# プロフィール写真の保存場所
変数を設定 [$IMGpath; 値: $path2 & test::写真]

# Excelテンプレートの保存場所
変数を設定 [$tempPath; 値: $path2 & test::テンプレート]

# VBSの保存場所（保存用）
変数を設定 [$vbs1; 値: $path1 & "createXL.vbs"]

# VBSの保存場所（実行用）
変数を設定 [$vbs2; 値: $path2 & "createXL.vbs"]

# VBSファイルの中身の設定
フィールド設定 [VBS::VBS; "Dim Obj" & ¶]
フィールド設定 [VBS::VBS; VBS::VBS & "Set Obj = WScript.CreateObject(\"Excel.Application\")" & ¶]
フィールド設定 [VBS::VBS; VBS::VBS & "Obj.Visible = True" & ¶]
フィールド設定 [VBS::VBS; VBS::VBS & "CreateObject(\"WScript.Shell\").AppActivate Obj.Caption" & ¶]
フィールド設定 [VBS::VBS; VBS::VBS & "Obj.Workbooks.Open \"" & $tempPath & "\"" & ¶]
フィールド設定 [VBS::VBS; VBS::VBS & "Obj.Application.Run \"createXL\", \"" & $XLpath & "\", \"" & $IMGpath & "\""]

# VBSファイルのエクスポート
フィールド内容のエクスポート [VBS::VBS;「$vbs1」; フォルダを作成:オン]

# VBSの実行
Eventを送信 [「aevt」; 「odoc」; $vbs2]

サンプルファイル

---