vb獲取excel表單名（vb獲取單元格內容）

本篇文章給大家談談vb獲取Excel表單名，以及vb獲取單元格內容對應的知識點，希望對各位有所幫助，不要忘了收藏本站喔。 今天給各位分享vb獲取Excel表單名的知識，其中也會對vb獲取單元格內容進行解釋，如果能碰巧解決你現在面臨的問題，別忘了關注本站，現在開始吧！

本文目錄一覽：

• 1、VB如何獲取EXCEL中所有的表名
• 2、vb.net excel導入sql如何自動獲取excel的sheet名？
• 3、VB 如何獲得Excel的工作表數和名稱？
• 4、vb 如何獲取當前的工作表的名稱

VB如何獲取EXCEL中所有的表名

VB還是VBA？如果是VBA，就可以這樣
Public Sub aa()
For i = 1 To Sheets.Count
Cells(i, 1) = Sheets(i).Name
Next i
End Sub
以上輸出到當前面的第一列

vb.net excel導入sql如何自動獲取excel的sheet名？

1.將excel上傳到服務器
/// <summary
/// 上傳文件到指定服務器文件
/// </summary
/// <param name="fileUpload".Net_FileUpload控件</param
/// <param name="mag"out 返回上傳是否成功</param
/// <param name="fileName"out 返回上傳到服務器上的文件名</param
/// <returns返回布爾類型。 上傳成功返回true 失敗false</returns
public static bool UpLoad(FileUpload fileUpload, out string mag, out string fileName)
{
mag = null;
fileName = null;
bool flag = false;
//是否允許上載
bool fileAllow = false;
//設定允許上載的擴展文件名類型
string[] allowExtensions = { ".xls", ".xlsx" };
//檢查是否有(是否包含)文件案
if (fileUpload.HasFile)
{
//取得上傳文件之擴展文件名，并轉換成小寫字母
string fileExtension = System.IO.Path.GetExtension(fileUpload.FileName).ToLower();
//檢查擴展文件名是否符合限定類型
for (int i = 0; i < allowExtensions.Length; i++)
{
if (fileExtension == allowExtensions[i])
{
fileAllow = true;
}
}
//符合上傳文件類型
if (fileAllow)
{
try
{
//重命名文件名
fileName = DateTime.Now.ToString("yyyyMMddhhmmss") + fileUpload.FileName;
//存儲文件到文件夾
fileUpload.SaveAs(GetServerPath(fileName));
fileUpload.Dispose();
mag = "文件導入成功";
flag = true;
}
catch (Exception ex)
{
mag += ex.Message;
flag = false;
}
}
else
{
mag = "不允許上載：" + fileUpload.PostedFile.FileName + "，只能上傳xls和xlsx的文件，請檢查！";
flag = false;
}
}
else
{
mag = "請選擇要導入的Excel文件!";
flag = false;
}
return flag;
}
調用 bool ft = ExcelImport.UpLoad(FileUpload1, out mag, out filePath);
FileUpload1為。net的上傳控件
二，查詢出Excel里面的所有工作薄名，根據OUT出來的存放excel的路徑
/// <summary
/// 獲取EXCEL文件中的所有表名(模板類型)(SheetName)
/// </summary
/// <param name="filepath"文件絕對路徑</param
/// <returnsArrayList集合</returns
public static ArrayList ExcelSheetName(string filepath)
{
ArrayList al = new ArrayList();
string strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + filepath + ";Extended Properties=Excel 8.0;";
OleDbConnection conn = new OleDbConnection(strConn);
try
{
conn.Open();
DataTable sheetNames = conn.GetOleDbSchemaTable
(System.Data.OleDb.OleDbSchemaGuid.Tables, new object[] { null, null, null, "TABLE" });
conn.Close();
foreach (DataRow dr in sheetNames.Rows)
{
al.Add(dr[2]);
}
}
catch (Exception e)
{
Logger.Error("ExcelImport.cs 頁面 ExcelSheetName", e);
}
finally
{
conn.Close();
}
return al;
}
調用 //獲取導入模板所有的模板表名
ArrayList al = ExcelImport.ExcelSheetName(UpPath);
3.進行工作薄名稱的對比
string sheet = null;
//進行判斷是否取到想要的sheet1
bool isExists = false;
for (int i = 0; i < al.Count; i++)
{
//獲取模板表名
sheet = al[i].ToString();
if (sheet.Equals("sheet1"))
{
//EXCELsheet名是sheet1
isExists = true;
}
}

VB 如何獲得Excel的工作表數和名稱？

是挺亂的。。
或者是
cells（x1,y1）
ts
then
ii
=
i
elseif
xlapp.cells(i,
2).value
=
ts
then
ii
=
i
這為什么不寫成
elseif
xlapp.cells(i,
2).value

=ts
then
ii
=
i
你是只要查找b列=ts的行號嗎？
dim
srt
as
string
dim
i
as
integer
srt
="等于ts的行號有"
for
i
=
1
to
65536
if
xlapp.cells(i,
2).value
=
ts
then
srt=
srt

","

i
end
if
next
i
msgbox
srt
沒跑過。。不知道行不行。。

vb 如何獲取當前的工作表的名稱

Dim oExcel As Object
Dim oBook As Object
Dim oSheet As Object
Set oExcel = CreateObject("Excel.application")
Set oBook = oExcel.workbooks.Add
Set oSheet = oBook.worksheets(1)
oSheet.Name = "新的工作表的名稱" 關于vb獲取excel表單名和vb獲取單元格內容的介紹到此就結束了，不知道你從中找到你需要的信息了嗎 ？如果你還想了解更多這方面的信息，記得收藏關注本站。 vb獲取excel表單名的介紹就聊到這里吧，感謝你花時間閱讀本站內容，更多關于vb獲取單元格內容、vb獲取excel表單名的信息別忘了在本站進行查找喔。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。