ファイル操作（こちらは見ないでください） - 中田ゼミ
る③ファイルを閉じるSub fileclose() 'FILEを閉じるWorkbooks("sample1.xlsx").ActivateActiveWorkbook.Close (savechanges = True) '変更を保存しないで閉じるWorkbooks("samp
る③ファイルを閉じるSub fileclose() 'FILEを閉じるWorkbooks("sample1.xlsx").ActivateActiveWorkbook.Close (savechanges = True) '変更を保存しないで閉じるWorkbooks("samp
fileclose() 'FILEを閉じるWorkbooks("sample1.xlsx").ActivateActiveWorkbook.Close (savechanges = True) '変更を保存しないで閉じるWorkbooks(&
として保存する ActiveSheet.Copy '新しいブックへコピー Name = "sample_new"ActiveWorkbook.SaveAs FileName:=Name, FileFormat:=xlWorkbookDefault &#
in, DataOption1:=xlSortNormal 画像を表示するImage1.Picture = LoadPicture(ActiveWorkbook.Path & "\pa.jpg")上のコードだと、「Image1」に「pa.jpg
ommaDelimiter = True .TextFilePlatform = 932 .Refresh End With ActiveWorkbook.Names("link1").Delete------------------------