If IO.File.Exists(ListFile) = True Then Try System.IO.File.Move(ListFile, ListFile) Catch ex As Exception '移動できなかったら起動していると判定 GoTo ExcelOpen End Try End If ''ファイルオープン wb = Appxl.Workbooks.Open(ListFile) GoTo ExcelOpenExit ExcelOpen: Try wb = GetObject(ListFile) Catch ex As Exception
MessageBox.Show(ex.Message) End Try ExcelOpenExit:
