Sub EditCsvToXls() Application.ScreenUpdating = False '文件目录 ChDir "C:\Users\QA-Department\Desktop\test" Dim sDir As String Dim curdir As String curdir = "C:\Users\QA-Department\Desktop\test" sDir = Dir(curdir & "\*.csv")…
using System; using System.Data; using System.Configuration; using System.Web; using System.Web.Security; using System.Web.UI; using System.Web.UI.WebControls; using System.Web.UI.WebControls.WebParts; using System.Web.UI.HtmlControls; using System.D…