1 2 3 4 5 6 7 8 9 10 |
Public Sub subExselFileSakusei() Try Dim NewPass As String = "エクセルを作成するパス" NewfilePass = NewPass & "\" & funIraibusyonokakunin(exNamae) & System.IO.Path.GetExtension(filepath) System.IO.File.Copy(filepath, NewfilePass) Catch ex As Exception MessageBox.Show(NewfilePass & ControlChars.CrLf & ex.Message.ToString, "ファイルが作成できません。エラーです。") NewfilePass = "" End Try End Sub |