展开全部
如果是当做文本操作,可以使用ReadLine,如:
System.IO.StreamReader dr= System.IO.File.OpenText(path);
string headLine=dr.ReadLine();
如果使用驱动的方式处理Excel,指定第一行是列信息就行了,如:
string strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + filePath + ";Extended Properties='Excel 8.0;HDR=Yes;IMEX=1'";
HDR=yes就是了 。
System.IO.StreamReader dr= System.IO.File.OpenText(path);
string headLine=dr.ReadLine();
如果使用驱动的方式处理Excel,指定第一行是列信息就行了,如:
string strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + filePath + ";Extended Properties='Excel 8.0;HDR=Yes;IMEX=1'";
HDR=yes就是了 。
更多追问追答
追问
你这个只是驱动,我要获取第一行里面的信息。
追答
你只接当成文本文件来处理,取第一行不就可以了吗
展开全部
Sub lyq()
Dim oRecrodset
Dim sConStr As String
Dim sSql As String
Dim oWk As Worksheet
Dim i As Integer
Set oWk = ThisWorkbook.Worksheets.Add
sConStr = “Provider=’Microsoft.Jet.OLEDB.4.0′;Data Source=” & ThisWorkbook.FullName & “;Extended Properties=’Excel 8.0;HDR=YES’”
sSql = “select * from [一月$]” & _
” union all select * from [二月$] union all ” & _
“select * from [三月$]”
Set oRecrodset = CreateObject(“ADODB.Recordset”)
With oRecrodset
.Open sSql, sConStr
‘循环导入字段名
For i = 1 To .Fields.Count
oWk.Cells(1, i) = .Fields(i – 1).Name
Next
oWk.Cells(2, 1).CopyFromRecordset oRecrodset
End With
Set oRecrodset = Nothing
End Sub
这个是在VBA中的一个代码
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |