解決了如何搜尋指定目錄下的檔案及如何更改檔名並新增學生個人資訊
option base 1
sub 新增學生個人資訊()
dim myfile as string, mypath as string, i as integer, arr() as string, j as integer
dim wb as workbook, xm as string, dz as string, myrange as range
worksheets("sheet1").activate
for j = 1 to 25
mypath = "e:\yizhong\班主任返回資料\" & trim(str(j)) & "\"
set wb = getobject(thisworkbook.path & "\學生資訊.xls")
with wb.sheets("yz")
for i = 1 to ubound(arr)
for each myrange in .range(.cells(2, 1), .cells(1245, 1))
if left(arr(i), 19) = myrange.value then
xm = myrange.offset(0, 2).value
dz = myrange.offset(0, 3).value
debug.print xm & dz
name thisworkbook.path & "\" & trim(str(j)) & "\" & arr(i) as thisworkbook.path & "\" & trim(str(j)) & "\" & trim(str(j)) & "班" & xm & dz & arr(i)
end if
next myrange
next i
end with
next j
end sub
很簡單的,不用解釋了吧?
今天你菊子曰了麼?
順序表學生個人健康資訊表(陣列)
cpp view plain copy include include include include include const maxsize 100 intn 定義要輸入資料的個數 using namespace std struct student 定義學生資訊 student stu ma...
老鬼的個人資訊
正名 李群巍 綽號 老鬼 從93年開始就有這個稱號了,是乙個高中同學給起的名字,因為我名字最後乙個字中有個 鬼 字 英文名 trueway lee 1999年5月份的樣子開始使用 msn truewaylee hotmail.com 基本技能 有5年專案管理經驗。熟悉iso9000 cmm流程。精通...
我的個人資訊
本markdown編輯器使用stackedit修改而來,用它寫部落格,將會帶來全新的體驗哦 markdown 是一種輕量級標記語言,它允許人們使用易讀易寫的純文字格式編寫文件,然後轉換成格式豐富的html頁面。維基百科 使用簡單的符號標識不同的標題,將某些文字標記為粗體或者斜體,建立乙個鏈結等,詳細...