A. 求《Excel VBA編程實戰寶典》.(伍遠高).電子書以及視頻
1650829356 @ QQ. com
B. 入門Excel VBA有哪些好書
1、在網上搜一下VBA編程 。排名、銷量靠前的都可以。例如：Excel VBA編程實戰寶典（附光碟）
2、在論壇上找些電子版的資源也很好。
C. 高分求Visual c++開發實戰寶典光碟內容（圖書出版社為清華大學出版社）
我想你正處於學習階段，這個階段對你很重要的。我建議你不要看別人的源程序，更不要把自己置於打字員的腳色。把學習和研究結合起來，養成研究的好習慣，只有這樣才能成為程序高手。要多收集研究題目，聯想這些題目有什麼用途，不要再收集源程序了。
D. excelvbafso不引用
判斷文件夾是否存在
FolderExists方法可以判斷指定的文件夾是否存在，若存在則返回True。其語法為：
fso.FolderExists(FolderSpec)
參數FolderSpec指定文件夾的完整路徑，String類型，不能包含通配符。
如果用戶有充分的許可權，FolderSpec可以是網路路徑或共享名，例如：
If fso.FileExists ("\\NTSERV1\d$\TestPath\") Then
示例如下：
Sub 按鈕1_Click()
Application.ScreenUpdating = False
Set fso = CreateObject("Scripting.FileSystemObject")
strfile = Application.InputBox("請輸入文件的完整名稱:", "請輸入文件的完整名稱:", , , , , , 2)
If fso.fileexists(strfile) Then
MsgBox strfile & " :存在"
Else
MsgBox strfile & " :不存在"
End If
Application.ScreenUpdating = True
End Sub
Excel VBA案例實戰從入門到精通（視頻自學版）
¥
59.8
購買
京東
二、移動文件夾
MoveFolder方法用來移動文件夾，將文件夾及其文件和子文件夾一起從某個位置移動到另一個位置。其語法為：
fso.MoveFolder source,destination
參數Source指定要移動的文件夾的路徑，String類型。參數destination指定文件夾移動操作中目標位置的路徑，String類型。
Source必須以通配符或非路徑分隔符結束，可以使用通配符，但必須出現在最後一部分中。destination不能使用通配符。除非不允許使用通配符，否則源文件夾中所有的子文件夾和文件都被復制到destination指定的位置，也就是說MoveFolder方法是遞歸的。
如果destination用路徑分隔符結束或者source用通配符結束，MoveFolder就認為source中指定的文件夾存在於destination中。例如，假設有如下文件夾結構：
MoveFolder "C:\Rootone\*","C:\RootTow\"
產生如下文件夾結構：
MoveFolder "C:\Rootone","C:\RootTwo\"
產生如下文件夾結構：
Source和destination可以為絕對路徑或相對路徑，可以為網路路徑或共享名。
MoveFile方法在開始操作前先解析source和destination這兩個參數。
Sub 按鈕1_Click()
Application.ScreenUpdating = False
Set fso = CreateObject("Scripting.FileSystemObject")
sfolder = ThisWorkbook.Path & "\tt"
dfolder = ThisWorkbook.Path & "\txt\"
If Not fso.folderexists(sfolder) Then
MsgBox sfolder & " :不存在"
Exit Sub
End If
If Not fso.folderexists(dfolder) Then
MsgBox dfolder & " :不存在"
Exit Sub
End If
fso.movefolder sfolder, dfolder
Application.ScreenUpdating = True
End Sub
三、拷貝文件夾
CopyFolder方法用於復制文件夾，即將一個文件夾的內容（包括其子文件夾）復制到其他位置。其語法為：
fso.CopyFolder Source,Destination[,OverwriteFiles]
參數Source必需，指定要復制的文件夾的路徑和文件夾名，String類型，必須使用通配符或者非路徑分隔符來結束。參數Destination必需，指定文件夾復制操作的目標文件夾的路徑，String類型。參數OverwriteFiles可選，表示是否被覆蓋一個現有文件的標志，True表示覆蓋，False表示不覆蓋，Boolean類型。
通配符只能在參數Source中使用，但是只能放在最後的組件中。在參數Destination中不能使用通配符。
除非不允許使用通配符，否則就可以把源文件夾中的所有子文件夾和文件都復制到Destination指定的文件夾中，也就是說CopyFolder方法是遞歸的。
如果參數Destination以一個路徑分隔符結束或者參數Source以一個通配符結束，CopyFolder方法就認為參數Source中的指定的文件夾存在於參數Destination中，否則就創建這樣一個文件夾。例如，假設有如下的文件夾結構：
CopyFolder "C:\Rootone\*","C:\RootTwo"
產生如下的文件夾結構：
CopyFolder "C:\Rootone","C:\RootTwo\"
產生如下的文件夾結構：
如果參數Destination指定的目標路徑或任意文件被設置成只讀屬性，則不論OverwriteFiles的值如何，CopyFolder方法者將失效。
如果OverwriterFiles設置為False，而參數Source指定的源文件夾或任何文件存在於參數Destination中，將產生運行時錯誤「文件已經存在」。
如果在復制多個文件夾時出現錯誤，CopyFolder方法立即停止復制操作，不再復制餘下要復制的文件。該方法不具有撤銷產生錯誤前文件復制操作的返回功能。
如果用戶有充分的許可權，source或destination都可以是網路路徑或共享名，例如：
CopyFolder "C:\Rootone","\\NTSERV1\d$\RootTwo\"
Sub 按鈕1_Click()
Application.ScreenUpdating = False
Set fso = CreateObject("Scripting.FileSystemObject")
sfolder = ThisWorkbook.Path & "\tt"
dfolder = ThisWorkbook.Path & "\txt\"
If Not fso.folderexists(sfolder) Then
MsgBox sfolder & " :不存在"
Exit Sub
End If
If Not fso.folderexists(dfolder) Then
MsgBox dfolder & " :不存在"
Exit Sub
End If
fso.folder sfolder, dfolder
Application.ScreenUpdating = True
End Sub
Excel 2016 VBA入門與應用
已完結
宋陽
|
軟硬體開發
11萬人在讀
立即閱讀
四、刪除文件夾
DeleteFolder方法用於刪除指定的文件夾及其所有的文件和子文件夾。其語法為：
fso.DeleteFolder FileSpec[,Force]
參數FileSpec必需，指定要刪除的文件夾的名稱和路徑，String類型。在參數FileSpec中，可以在路徑的最後部分包含通配符，但不能用路徑分隔符結束，可以為相對路徑或絕對路徑。
參數Force可選，Boolean類型，如果設置為True，將忽略文件的只讀標志並刪除這個文件。默認為False。如果參數Force設置為False並且文件夾中的任意一個文件為只讀，則該方法將失敗。如果找不到指定的文件夾，則該方法失敗。
如果指定的文件夾中有文件已經打開，則不能完成刪除操作，且產生一個「Permisson Denied」錯誤。DeleteFolder方法刪除指定文件夾中的所有內容，包括其他文件夾及其內容。
如果在刪除多個文件或文件夾時出現錯誤，DeleteFolder方法將立即停止刪除操作，即不能刪除餘下的文件夾或文件。該方法不具有撤銷產生錯誤前文件夾刪除操作的返回功能。
DeleteFolder方法永久性刪除文件夾，並不把它們移到回收站中。
如果用戶有充分的許可權，源路徑和目標路徑可以是網路路徑或共享名，例如：
DeleteFolder "\\RootTest"
示例如下：
Sub 按鈕1_Click()
Application.ScreenUpdating = False
Set fso = CreateObject("Scripting.FileSystemObject")
sfolder = ThisWorkbook.Path & "\txt\tt"
If Not fso.folderexists(sfolder) Then
MsgBox sfolder & " :不存在"
Exit Sub
End If
fso.deletefolder sfolder
Application.ScreenUpdating = True
End Sub
Excel VBA編程實戰寶典
已完結
尚品科技
|
軟硬體開發
5.6萬人在讀
立即閱讀
五、創建文件夾
CreateFolder方法用於在指定的路徑下創建一個新文件夾，並返回其Folder對象。其語法為：
fso.CreateFolder (Path)
參數Path必需，為一個返回要創建的新文件夾名的表達式，String類型。Path指定的路徑可以是相對路徑也可以是絕對路徑，如果沒有指定路徑則使用當前驅動器和目錄作為路徑。在新的文件夾名中不能使用通配符。
如果參數Path指定的路徑為只讀，則CreateFolder方法將失敗；如果參數Path指定的文件夾已經存在，就會產生運行時錯誤「文件已經存在」。如果用戶有充分的許可權，則參數Path可以指定為網路路徑或共享名，例如：
Fso.CreateFolder "\\NTSERV1\RootTest\newFolder"
示例如下：
Sub 按鈕1_Click()
Application.ScreenUpdating = False
Set fso = CreateObject("Scripting.FileSystemObject")
sfolder = ThisWorkbook.Path & "\thisfolder"
If fso.folderexists(sfolder) Then
MsgBox sfolder & " :已經存在"
Exit Sub
End If
fso.CreateFolder sfolder
Application.ScreenUpdating = True
End Sub
別怕，Excel VBA其實很簡單
已完結
Excel Home
|
軟硬體開發
4.4萬人在讀
立即閱讀
六、GetAbsolutePathName方法
將相對路徑轉變為一個全限定路徑（包括驅動器名），返回一個字元串，包含一個給定的路徑說明的絕對路徑。其語法為：
fso.GetAbsolutePathName (Path)
參數Path必需，代表路徑說明，String類型。
「.」返回當前文件夾的驅動器名和完整路徑。「..」返回當前文件夾的父文件夾的驅動器名和路徑。「filename」返回當前文件夾中的文件的驅動器名、路徑及文件名。
所有相對路徑名均以當前文件夾為基準。
如果沒有明確地提供驅動器作為Path的一部分，就以當前驅動器作為Path參數中的驅動器。在Path中可以包含任意個通配符。
對於映射網路驅動器和共享而言，這種方法不能返回完整的網路地址，而是返回全限定的本地路徑和本地驅動器名。
GetAbsolutePathName不能檢驗指定路徑中是否存在某個給定的文件或文件夾
Sub 按鈕1_Click()
Application.ScreenUpdating = False
Set fso = CreateObject("Scripting.FileSystemObject")
sfolder = "thisfolder"
If fso.folderexists(sfolder) Then
MsgBox sfolder & " :已經存在"
Exit Sub
End If
str1 = fso.GetAbsolutePathName(sfolder)
MsgBox sfolder & " ：的絕對路徑為： " & str1
Application.ScreenUpdating = True
End Sub
七、GetParentFolderName方法
返回給定路徑中最後部分前的文件夾名，其語法為：
fso.GetParentFolderName (Path)
參數Path必需，指定路徑說明，String類型。
如果從Path中不能確定父文件夾名，就返回一個零長字元串（」」）。Path可以為相對路徑或絕對路徑。可以是網路驅動器或共享。
GetParentFolderName方法不能檢驗Path的某個部分是否存在。
GetParentFolderName方法認為Path中不屬於驅動器說明的那部分字元串除了最後一部分外餘下的字元串就是父文件夾。除此之外它不做任何其他檢測，更像是一個字元串解析和處理常式而不是與對象處理有關的常式。
Sub 按鈕1_Click()
Application.ScreenUpdating = False
Set fso = CreateObject("Scripting.FileSystemObject")
sfolder = ThisWorkbook.Path & "\tt\"
If Not fso.folderexists(sfolder) Then
MsgBox sfolder & " :不存在"
Exit Sub
End If
str1 = fso.GetParentFolderName(sfolder)
MsgBox sfolder & " ：父路徑： " & str1
Application.ScreenUpdating = True
End Sub
八、GetSpecialFolder方法
GetSpecialFolder方法返回操作系統文件夾路徑，其中0代表Windows文件夾，1代表System（系統）文件夾，2代表Temp（臨時）文件夾。其語法為：
fso.GetSpecialFolder (SpecialFolder)
參數SpecialFolder必需，為特殊的文件夾常數，表示三種特殊系統文件夾中其中一個的值。
可以使用Set語句將Folder對象賦給一個局部對象變數，但是如果只對檢索特殊的文件夾感興趣，就可以使用下列語句來實現：
sPath=fso.GetSpecialFolder (iFolderConst)
或：
sPath=fso.GetSpecialFolder (iFolderConst).Path
由於Path屬性是Folder對象的預設屬性，所認第一個語句有效。因為不是給一個對象變數賦值，所以賦給sPath的值是預設的Path屬性值，而不是對象引用。
示例
Sub 按鈕1_Click()
Application.ScreenUpdating = False
Dim strWindowsFolder As String
Dim strSystemFolder As String
Dim strTempFolder As String
Set fso = CreateObject("Scripting.FileSystemObject")
strWindowsFolder = fso.GetSpecialFolder(0)
strSystemFolder = fso.GetSpecialFolder(1)
strTempFolder = fso.GetSpecialFolder(2)
MsgBox strWindowsFolder & vbCrLf & strSystemFolder & vbCrLf _
& strTempFolder, vbInformation + vbOKOnly, "Special Folders"
Application.ScreenUpdating = True
End Sub
九、GetFolder方法
GetFolder方法返回Folder對象。其語法為：
fso.GetFolder (FolderPath)
參數FolderPath必需，指定所需文件夾的路徑，String類型，可以為相對路徑或絕對路徑。如果FolderPath是共享名或網路路徑，GetFolder確認該驅動器或共享是File對象創建進程的一部分。如果FolderPath的任何部分不能連接或不存在，就會產生一個錯誤。
要獲得所需的Path字元串，首先應該使用GetAbsolutePathName方法。如果FolderPath包含一個網路驅動器或共享，可以在調用GetFolder方法之前使用DriveExists方法確認指定的驅動器是否可用。由於GetFolder方法要求FolderPath是一個有效文件夾的路徑，所以應調用FolderExists方法來檢驗FolderPath是否存在。
必須使用Set語句將Folder對象賦給一個局部對象變數
十、獲取文件夾有關信息
獲取當前文件所在文件夾的信息
Sub 按鈕1_Click()
Application.ScreenUpdating = False
Dim sReturn As String
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder1 = fso.GetFolder(ThisWorkbook.Path & "\")
sReturn = "文件夾屬性： " & folder1.Attributes & vbCrLf
'獲取最近一次訪問的時間
sReturn = sReturn & "創建時間： " & folder1.Datecreated & vbCrLf
sReturn = sReturn & "最後訪問時間： is " & folder1.DateLastAccessed & vbCrLf
'獲取最後一次修改的時間
sReturn = sReturn & "最後修改時間： " & folder1.DateLastModified & vbCrLf
'獲取文件夾的大小
sReturn = sReturn & "文件夾大小： " & FormatNumber(folder1.Size / 1024, 0)
sReturn = sReturn & "Kb" & vbCrLf
'判斷文件或文件夾類型
sReturn = sReturn & "類型為： " & folder1.Type & vbCrLf
MsgBox sReturn
Application.ScreenUpdating = True
End Sub
E. 數據分析的方法有哪些有什麼方法快速掌握么我是從事物流的。
數據分析需要掌握數據統計軟體、還有數據分析工具，例如，柏拉圖、直方圖、散點圖、相關分析、回歸分析、ANOVA分析、魚骨圖、FMEA、點圖、柱狀圖、雷達圖、趨勢圖、XY矩陣等圖形。列外，統計分析軟體一般有JMP和Minitab以及SPSS，不過SPSS在學校里用得多，Minitab在企業里用處很廣泛，主要是Minitab方便，簡單，實用。如果是物流方面，建議學習一些專業性的物流數據分析教程，例如《尚西物流數據分析實戰寶典》就很不錯，自己去搜吧。網路：尚西物流數據分析實戰寶典。