参照設定 FSO参照設定
※より実装に近く表示させる為、コードの改行を避けています。スマホ等で閲覧される際は向きを変えてご覧ください。
※実装するバージョンによってはバージョンアップの仕様により動作しないコードもあります。実装には動作確認の上ご使用下さい。
Sub RuntimeFSOSet() '************************************************* 'FileSystemObject参照設定 '************************************************* '名称:Microsoft Scripting Runtime On Error GoTo MyErr: '参照設定 ThisWorkbook.VBProject.References.AddFromFile "C:\WINDOWS\system32\scrrun.dll" MyErr: End Sub |