EXCEL調(diào)用NISTREFPROP91

1、在EXCEl2010中直接調(diào)用NIST REFPROP的設(shè)置方法網(wǎng)上已經(jīng)有很多在EXCEL中調(diào)用NIST REFPROP的設(shè)置方法，但是方法比較過時(shí)，本人也是試了好久才成功調(diào)用，先把主要步驟做下總結(jié)，現(xiàn)在電腦很多都是win8及win10的64位系統(tǒng)，所以針對64位的win10系統(tǒng)的安裝方法聲明：1、為了保證安裝成功，希望嚴(yán)格按照安裝步驟進(jìn)行；若安裝完成遇到錯(cuò)誤，對相應(yīng)步驟調(diào)整即可。2、由于nist軟件本身是32位軟件，所以無論你怎么設(shè)置安裝路徑，都是C:ProgramFiles (x86)REFPROP下。D盤沒有試過一、建立環(huán)境變量打開“開始/控制面板/系統(tǒng)/高級系統(tǒng)設(shè)置/高級/環(huán)境變量”，

2、如下圖所示。 新建一個(gè)環(huán)境變量，變量名=RPprefix，變量值= C: Program Files (x86)Refprop點(diǎn)擊確定；二、建立EXCEL加載項(xiàng)1、打開REFPROP安裝文件夾下的Excel文件REFPROP.xls。2、按“Alt+F11”鍵，打開VB編輯器（或者按開發(fā)工具/VB編輯器）。3、打開右邊Module，找到如下內(nèi)容按“Ctrl+F”查找“Refprop.DLL”，并將其全部替換為C:Program Files (x86)RefpropRefprop.DLL”，保存，并退出Excel。4、修改Refprop.DLL 中Declar為Declare PtrSafe 這

3、一步比較關(guān)鍵有可能影響能否調(diào)用成功三、保存REFPROP為MicrosoftOffice加載項(xiàng)打開第2步保存的REFPROP.xls文件“另存為”，選擇文件類型“Excel加載宏（*.xlam）”，默認(rèn)的文件地址會(huì)變?yōu)椤?MicrosoftAddIns”，保存。若未出現(xiàn)默認(rèn)地址，在C盤搜索“*.xlam”，找到其所在文件夾，將保存的“REPROP.xlam”文件拷貝到該文件夾。四、添加加載項(xiàng)AddIns打開一個(gè)空白Excel文件，在“文件/選項(xiàng)/加載項(xiàng)”中添加和激活“REFPROPAddIns”，確保其處于激活狀態(tài)。五、測試結(jié)果打開一個(gè)新的EXCEL空白文件，在任意一個(gè)單元格輸入=densit

4、y(water,TP,SI,500,100)如果顯示為數(shù)值。恭喜你，成功了！如果顯示錯(cuò)誤，1.檢查輸入公式是否正確例如：是否有中文符號等；2.將安裝目錄中的文件夾fluid和mixtures，以及文件refprop.dll全部拷貝到REFPROP.xlam所存放的文件夾（.MicrosoftAddIns），就OK了。附：常用函數(shù)舉例MolarMass(Air)Temperature(argon,PD,SI,2,15)Pressure(r134a,TD,SI,400,50)Enthalpy(ethylene,TS,SI,300,3)Viscosity(oxygen,TP,SI,100,1)The

5、rmalConductivity(nitrogen,Tliq,SI,100)Density(air,TP,E,70,14.7)Enthalpy(R32;0.3;R125;0.7,PS,molar si,10,110)Temperature(ethane;0.5;butane;0.5 mass,DH,E,30,283)SpeedOfSound(ammonia;0.4;water;0.6,TP,E,300,10000)Density(r218;.1;r123;.9,PH,cgs,7,180)Quality(methane;40;ethane;60 mass,TD,mks,200,300) kg/k

6、gQuality(methane;40;ethane;60 mass,TP,mks,200,2814.5509) mass ratioQuality(methane;40;ethane;60 mass,TP,molar SI,200,2.8145509)molar ratioHeatOfVaporization(octane,tliq,c,100)SurfaceTension(nitrogen,tl,SI,100)Viscosity(butane;.25;hexane;.75,TH,SI,300,-21)ThermalConductivity(carbon dioxide,.5,nitrogen,.5 mass,TH,SI,200,126)DielectricConstant(ethane;.5;propane;.5,tvap,SI,300)MoleFraction(R410A.MIX,1)mole2mass(R410A.MIX,1,A30,1-A30)m