我不会呀，请帮帮我的忙查一下行吗，本人非常感谢？ “您好，非常感谢您对我的帮助，解决了我的大忙，能帮我进一步完...
\u4f60\u597d\uff0c\u670b\u53cb\uff0c\u8bf7\u4f60\u6765\u5e2e\u5e2e\uff0c\u5fd9\u9ebb\u70e6\u4e86\uff0c\u8c22\u8c22\u4f60\uff0c\uff0c\u5e0c\u671b\u4f60\u80fd\u5e2e\u5230\u6211\uff0c\u975e\u5e38\u611f\u8c22\uff1f\u8fd9\u79cd\u60c5\u51b5\u4f60\u53ef\u4ee5\u7528\u7533\u8bc9\u7684\u65b9\u5f0f\u627e\u56de\uff0c\u5982\u679c\u4f60\u80fd\u8bb0\u4f4f\u51e0\u4e2a\u670b\u53cb\u7684\u8054\u7cfb\u65b9\u5f0f\uff0c\u8ba9\u4ed6\u4eec\u6309\u63d0\u793a\u64cd\u4f5c\u5c31\u53ef\u4ee5\u4e86\uff0c\u7b49\u7cfb\u7edf\u901a\u8fc7\u4e86\u7533\u8bc9\u9a8c\u8bc1\u5c31\u53ef\u4ee5\u767b\u5f55\u5e76\u66f4\u6539\u5bc6\u7801\u4e86\uff0c\u8fd8\u6709\u4e00\u548c\u65b9\u5f0f\u5c31\u662f\u5bc6\u4fdd\u95ee\u9898\uff0c\u4f60\u8981\u662f\u8bbe\u7f6e\u4e86\u5c31\u7528\u90a3\u4e2a\u56de\u7b54\u95ee\u9898\u89e3\u9501\u4e5f\u53ef\u4ee5\uff0c\u5982\u679c\u4f60\u672c\u8eab\u80fd\u767b\u9646\u53ef\u4ee5\u9009\u62e9\u66f4\u6362\u7ed1\u5b9a\u624b\u673a\u53f7\u6309\u63d0\u793a\u64cd\u4f5c\u5c31\u53ef\u4ee5\u4e86\uff0c\u5b9e\u5728\u4e0d\u884c\u4f60\u53ef\u4ee5\u627e\u5ba2\u670d\u89e3\u51b3
Sub \u53e6\u5b58\u6240\u6709\u5de5\u4f5c\u8868\u4e3a\u5de5\u4f5c\u7c3f()
Dim sht As Worksheet
Application.ScreenUpdating = False '\u7981\u7528\u5c4f\u5e55\u5237\u65b0
Application.DisplayAlerts = False
ipath = ThisWorkbook.Path & "\" '\u9ed8\u8ba4\u4fdd\u5b58\u5728\u5f53\u524d\u6587\u4ef6\u5939
For Each sht In Sheets
If sht.Name "\u76ee\u5f55" Then
If sht.Range("D4") "" Then
myipath = ipath & sht.Range("D4")
Else
myipath = ipath & "\u65b0\u5efa\u6587\u4ef6\u5939"
End If
If Dir(myipath, vbDirectory) = "" Then MkDir myipath
sht.Copy
ActiveWorkbook.SaveAs myipath & "\" & sht.Name & ".xls"
ActiveWorkbook.Close
End If
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True '\u6062\u590d\u5c4f\u5e55\u5237\u65b0
End Sub
对于你不会的东西，我们只要会都可以帮你查，就是你需要感谢这个话大家伙都会很正常的接受的，不用客气。
既然不会虚心请教，那么如果我会的情况下，我一定会给你帮忙查一下的，没关系的，不客气
不知你什么不会呀？叫我们帮你忙查什么？关键你没把问题讲清楚，有些问题自已到网上搜索一下，有问必答，岂不更好？
你这个也没说的太明白，我也没看懂什么意思，问题是你让大家帮帮你什么忙呢？你需要查什么呢？具体的问题你也没说的太详细，我这边也看不到，实在不知道你问的是什么。
绛旓細濡傛灉浣犱笉浼氱殑璇濓紝鍙互璁╀綘韬竟鐨勬湅鍙嬪府浣犱竴涓嬪繖锛岃繖鏍峰氨鍙互浜嗐
绛旓細鍏ㄥ
绛旓細5銆佸窘娲惧缓绛戯紱鍚村啝涓 9銆佸惔鏄岀 10銆侀粍瀹捐櫣 11銆侀洉鐗 12銆侀敮榻跨汗锛涙湀鐗欑汗锛涢奔槌炵汗锛涗簯绾 13銆侀槼鍒伙紱14銆佺伅褰辨垙锛22銆佽姍钃夈佽姍钑栫瓑锛涘粔锛涘拰
绛旓細PA13807758513 2011-04-21 16:00:00 | 褰撳墠澶勭悊锛氬寘瑁瑰崟宸茬鏀 | 澶勭悊鏈烘瀯锛氫笢娌虫姇閫掑眬 澶勭悊鏃堕棿 澶勭悊鍗曚綅 閭欢鐘舵 2011-04-12 09:37:23 涓夋渤钀ヤ笟瀹 浜ゅ瘎 瀵勮揪鍦---鍐呰挋鍙よ嚜娌诲尯鍖呭ご甯備笢娌冲尯 2011-04-17 08:48:00 鍛煎拰娴╃壒甯 鍒拌揪澶勭悊涓績 2011-04-18 23:00:00 鍖呭ご閭斂涓績灞 ...
绛旓細鐧戒护娴峰场 浼婃瘮鍒╀簹鍗婂矝 鈶＄編鍥解憿鍔犳嬁澶 鏈鍚庝竴涓┖鏄寳鍐
绛旓細1銆佹嫧鎵95555锛堟垨鍖哄彿+95555锛夐夆4鈥濇寕澶卞強绱фユ湇鍔★紝鎸傚け鍗＄墖銆2銆侀氳繃鑷姪娓犻亾鎸傚け锛屽鎵嬫満閾惰銆佺數璇濊嚜鍔ㄨ闊炽佺綉閾朵笓涓氱増鎴栧ぇ浼楃増銆傝嚜鍔╂笭閬撳姙鐞嗗彛澶存寕澶辨湁鏁堟湡5澶╋紙鑻1鍙锋寕澶憋紝鏈夋晥鏈熷埌5鍙锋櫄涓24鐐癸級锛5澶╁唴璇峰甫寮鎴疯瘉浠跺師浠跺埌鍏ㄨ鏌滃彴鍔炵悊琛ュ崱銆傛俯棣ㄦ彁绀 濡傛棤娉曞強鏃惰ˉ鍗★紝寤鸿鍦ㄦ寕澶卞け鏁堝墠鍐嶆...
绛旓細鏍规嵁鎮ㄦ彁渚涚殑IMEI鍙风爜鏌ヨ鍒扮殑淇℃伅鏄細鏈哄瀷锛欻TC 娓存湜HD A9191 閿鍞湴锛氶娓 鍑哄巶鏃ユ湡锛2012/02/20 瀹樼綉鍙互鏌~
绛旓細浜旇灞炴э細閲戙傛湰涔夛細鎸囧枩鎮︺侀珮鍏淬佹剦蹇佽垝鐣呫侀『鍒┿傜敤浣滀汉鍚嶏細鎰忔寚椤哄埄锛屽枩鎮︼紝鑸掔晠锛屼箹宸т箣涔夈傚瘬鎸囷細骞冲湴闈掍簯銆佷级鐗欎繍榻裤佸悏绁ュ鎰忋備簲琛屾槸涓浗鍙や唬鍝插鐨勪竴绉嶇郴缁熻锛屽箍娉涚敤浜庝腑鍖汇佸牚鑸嗐佸懡鐞嗐佺浉鏈拰鍗犲崪绛夋柟闈備簲琛岀殑鎰忎箟鍖呮兜鍊熺潃闃撮槼婕斿彉杩囩▼鐨勪簲绉嶅熀鏈姩鎬侊細閲戯紙浠ｈ〃鏁涜仛锛夈佹湪锛堜唬琛ㄧ敓闀匡級...
绛旓細PA13778120613 2011-07-11 20:35:00 | 褰撳墠澶勭悊锛氬埌杈惧鐞嗕腑蹇 | 澶勭悊鏈烘瀯锛氭俯宸炲競 澶勭悊鏃堕棿 澶勭悊鍗曚綅 閭欢鐘舵 2011-07-07 01:54:59 涓夋渤钀ヤ笟瀹 浜ゅ瘎 瀵勮揪鍦---娴欐睙鐪佹俯宸炲競涔愭竻甯 2011-07-10 09:30:00 娴欐睙鐪佸眬 鍒拌揪澶勭悊涓績 2011-07-10 20:04:00 閲戝崕甯 鍒拌揪澶勭悊涓績 2011...
绛旓細鍙湁浣犵殑鎵嬫満鎵嶅彲浠ユ煡鍒
