VBA_developdoc इत्यस्मिन् Excel कार्यपुस्तिकां कथं उद्घाटयितुं, रक्षितुं, बन्दं च कर्तुं शक्यते

VBA मध्ये Excel workbook कथं उद्घाटयितुं, रक्षितुं, बन्दं च कर्तुं शक्यते

2024-07-12

प्रस्तावना

अस्मिन् खण्डे Excel कार्यपुस्तिकां उद्घाटयितुं, Excel कार्यपुस्तिकां रक्षितुं, बन्दं कर्तुं च, क्रमशः Open, Save, Close इति पद्धतीनां उपयोगं कर्तुं VBA पद्धतेः उपयोगः कथं करणीयः इति परिचयः भविष्यति ।

1. कार्यपुस्तिकाम् उद्घाटयितुं Open मेथड् इत्यस्य उपयोगं कुर्वन्तु

Workbooks.Open(FileName,UpdateLinks,ReadOnly,Format,Password,WriteResPassword,Ignore-ReadOnlyResommended,उत्पत्ति,सीमाकर्ता,संपादन योग्य,सूचना,परिवर्तक,AddToMru,स्थानीय,भ्रष्ट-लोड)
虽参数较多，但只有FileName为必填参数，表示需要打开的工作簿文件名，关于参数说明请参考下表：

पैरामीटर्	दृष्टान्तरूपेण दर्शयतु
सञ्चिकानाम	यत् कार्यपुस्तिकायाः सञ्चिकानाम उद्घाटनीयं, सञ्चिकायाः निरपेक्षमार्गः च आवश्यकः ।
UpdateLinks	कार्यपुस्तिकायां बाह्यसन्दर्भाः (लिङ्काः) कथं अद्यतनाः भवन्ति इति निर्दिशति ।सम्भाव्यमूल्यानि 0 अथवा 3 भवन्ति, यस्य अर्थः क्रमशः कार्यपुस्तिकां उद्घाटयति समये बाह्यसन्दर्भान् अद्यतनं न कर्तव्यम्, कार्यपुस्तिकां उद्घाटयति समये बाह्यसन्दर्भान् अद्यतनीकर्तुं च
ReadOnly इति	यदा True भवति तदा केवलं पठनीयविधाने कार्यपुस्तिका उद्घाटयितुं भवति ।
प्रारूप	पाठसञ्चिकां उद्घाटयन्ते सति, सीमांककं निर्दिष्टुं एतत् पैरामीटर् उपयुज्यताम् । सम्भाव्यमूल्यानि १ (टैब्), २ (अल्पविराम), ३ (अन्तरिक्षम्), ४ (अर्धविरामः), ५ (कोऽपि नास्ति), ६ (अनुकूलवर्णः, Delimiter पैरामीटर् द्वारा निर्दिष्टः) सन्ति ।
समाभाष्	यदि उद्घाटनीयस्य कार्यपुस्तिकायाः उद्घाटनगुप्तशब्दसमूहः अस्ति तर्हि गुप्तशब्दं दातुं एतत् पैरामीटर् उपयुज्यताम् ।यदि गुप्तशब्दः सेट् भवति परन्तु एषः पैरामीटर् न पूरितः अस्ति तर्हि उपयोक्तारं गुप्तशब्दं प्रविष्टुं प्रेरयन् संवादपेटिका उत्पद्यते ।
WriteResPassword लिखें	यदि उद्घाटनीयस्य कार्यपुस्तिकायाः संरचनायाः रक्षणार्थं गुप्तशब्दः अस्ति तर्हि तत्सम्बद्धं गुप्तशब्दं दातुं एतत् पैरामीटर् उपयुज्यताम् ।
IgnoreReadOnlyRecommended इति अनुशंसितम्	यदा True तदा केवलं पठनीय-अनुशंसित-सूचनाः न प्रदर्शयितुं इति अर्थः ।
श्रोतं	पाठसञ्चिकां उद्घाटयन्ते सति, सञ्चिका कस्मात् प्रचालनतन्त्रात् उत्पन्ना इति सूचयितुं, कोडपृष्ठानि, कैरिज रिटर्न्स्/लाइन् फीड् च सम्यक् नियन्त्रयितुं, एतस्य पैरामीटर् इत्यस्य उपयोगं कुर्वन्तु । सम्भाव्यमूल्यानि नित्यं xlMacintosh, xlWindows, xlMSDOS सन्ति ।
परिसीमक	पाठसञ्चिकां उद्घाटयन्ते सति यदि Format पैरामीटर् 6 इति सेट् भवति तर्हि वर्णं विभाजकरूपेण निर्दिष्टुं एतस्य पैरामीटर् इत्यस्य उपयोगं कुर्वन्तु यदि बहुवर्णाः सेट् भवन्ति तर्हि पूर्वनिर्धारितरूपेण केवलं प्रथमवर्णः एव गृह्यते ।
सम्पादनीयम्	यदि उद्घाटनीया सञ्चिका Excel 4.0 add-in अस्ति, यदा अस्य पैरामीटर् इत्यस्य मूल्यं True भवति तदा add-in दृश्यमानं विण्डो भवति अथवा एतत् पैरामीटर् उपेक्षितं भवति तर्हि add-in गुप्तरूपेण उद्घाट्यते mode तथा च दृश्यमानं कर्तुं न शक्यते;
सूचयतु	यदा उद्घाटनीयं सञ्चिका पठन-लेखन-विधाने उद्घाटयितुं न शक्यते, यदि अस्य पैरामीटर् इत्यस्य मूल्यं True भवति तर्हि सञ्चिकां सञ्चिकासूचनासूचौ योजयितुं शक्यते । Excel केवलं पठनीयविधाने सञ्चिकां उद्घाटयिष्यति तथा च सञ्चिकासूचनासूचीं मतदानं करिष्यति, यदा सञ्चिका उपलब्धा भवति तदा उपयोक्तारं सूचयिष्यति ।यदि अस्य पैरामीटर् इत्यस्य मूल्यं False अथवा लोपितम् अस्ति तर्हि कोऽपि सूचना न याच्यते तथा च कस्यापि अनुपलब्धाः सञ्चिकाः उद्घाटयितुं न शक्यन्ते ।
परिवर्तक	सञ्चिकां उद्घाटयन् प्रथमं सञ्चिकापरिवर्तकस्य अनुक्रमणिकासङ्ख्या उपयोक्तुं प्रयत्नं कृतवती । यदि सञ्चिका निर्दिष्टेन सञ्चिकापरिवर्तकेन न ज्ञायते तर्हि अन्यस्य परिवर्तकस्य उपयोगं कर्तुं प्रयतध्वम् ।
AddToMru इति	यदि अस्य पैरामीटर् इत्यस्य मूल्यं True अस्ति तर्हि कार्यं सद्यः प्रयुक्तसञ्चिकासूचौ न योजितं भविष्यति । पूर्वनिर्धारितं False अस्ति
स्थानिक	यदि अस्य पैरामीटर् इत्यस्य मूल्यं True अस्ति तर्हि सञ्चिका Excel इत्यस्य भाषायां (control panel settings सहितम्) रक्षिता भविष्यति, तर्हि सञ्चिका VBA इत्यस्य भाषायां रक्षिता भविष्यति ।
CorruptLoad इति	उपलब्धमूल्यानि नित्यं xlNormalLoad, xlRepairFile, xlExtractData च सन्ति, येषां क्रमशः अर्थः सामान्यरूपेण कार्यपुस्तिकां उद्घाटयितुं, कार्यपुस्तिकायाः मरम्मतं कर्तुं प्रयत्नः, कार्यपुस्तिकायां दत्तांशं पुनः स्थापयितुं प्रयत्नः च पूर्वनिर्धारितं xlNormalLoad अस्ति

उदाहरणम् 1: Excel कार्यपुस्तिका उद्घाटयन्तु

Sub OpenExcelFile()
    
    Dim strFileName As String
    ' 定义文件名称
    strFileName = "D:VBAEmployee.xlsx"
    
    ' 打开工作簿
    Workbooks.Open Filename:=strFileName
    
End Sub
1
2
3
4
5
6
7
8
9
10

उदाहरणम् 2: वर्तमानमार्गस्य अधः Excel कार्यपुस्तिका उद्घाटयन्तु

Sub OpenExcelFile()

    Dim strFileName As String
    Dim strFilePath
    
    ' 定义文件名称
    strFileName = "Employee.xlsx"
    ' 获取当前路径
    strFilePath = ThisWorkbook.Path
    
    ' 打开工作簿
    Workbooks.Open Filename:=strFilePath & "" & strFileName
    
End Sub
1
2
3
4
5
6
7
8
9
10
11
12
13
14

2. सञ्चिकां रक्षित्वा बन्दं कुर्वन्तु

यदा भवान् Excel कार्यपुस्तिकाम् उद्घाट्य तस्य सामग्रीं चालयति, ततः तत् रक्षितुं बन्दं च कर्तुम् इच्छति तदा भवान् Save and Close इति पद्धतीनां उपयोगं कर्तुं शक्नोति ।

उदाहरणम् : वर्तमानमार्गे Employee.xlsx सञ्चिकां उद्घाट्य, Sheet1 इत्यस्य कोष्ठके A1 वर्तमानतिथिं लिखित्वा, Employee.xlsx सञ्चिकां रक्षन्तु, बन्दं कुर्वन्तु च सम्पूर्णः कोडः निम्नलिखितरूपेण अस्ति ।

Sub WriteCurrentDate()
    
    ' 申明变量
    Dim strFileName As String
    Dim strFilePath
    Dim ws As Worksheet
    Dim wb As Workbook
    
    ' 定义文件名称
    strFileName = "Employee.xlsx"
    ' 获取当前路径
    strFilePath = ThisWorkbook.Path
    
    ' 打开工作簿
    Workbooks.Open Filename:=strFilePath & "" & strFileName
    
    ' 定义sheet1工作表对象以及当前打开的工作簿对象
    Set ws = ActiveWorkbook.Worksheets("Sheet1")
    Set wb = ActiveWorkbook
    
    ' A1单元格写入当前日期
    ws.Range("A1").Value = Date
    
    ' 保存并关闭文件
    wb.Save
    wb.Close
    
End Sub
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28

प्रौद्योगिकी साझेदारी