728x90
반응형
AddHandler ts.Click, Sub(so As ToolStripMenuItem, ea As EventArgs)
Dim tem As String = "급여일,사원번호,이름,부서,직책,기본급,식대,자가운전,성과급,지급액계,국민연금,건강보험,고용보험,장기요양보험,소득세,지방소득세,공제액계,차인지급액
2023-03-31,202301011,홍길동,인사팀,과장,1500000,100000,0,0,1600000,100000,110000,12000,4500,3200,2500,232200,1367800"
Dim fileName As String = Path.Combine(APP_USER_DATA_PATH, "salary_example.csv")
My.Computer.FileSystem.WriteAllText(fileName, tem.ToString, False)
CreateObject("wscript.shell").Run("""" & Path.Combine(APP_USER_DATA_PATH, "salary_example.csv") & """")
End Sub
반응형
댓글