.


:

:



,



( , )

:

































 

 

 

 
FAQ

MS Excel MS Word

⇐ 567891011121314 ⇒



16-02-Excel to Word.xlsm 16-03-Word to Excel.docm - . 16.2.

. , Microsoft Excel Microsoft Word, - Excel .

, VBA Tools o References.

MS Excel, Microsoft Word, , , , , . , , ( 16.3.)

' ' MS Word Dim obj_Word As Word.Application ' 'MS Word Dim obj_WDoc As Word.Document ' ' Excel Dim obj_ESheet As Worksheet ' ' Dim obj_Range As Range ' ' MS Excel Dim obj_Excel As Workbook ' Dim str_Str As String ' ' ' Set obj_Range = Selection Set obj_ESheet = ActiveSheet Set obj_Excel = ActiveWorkbook ' MS Word Set obj_Word = New Word.Application ' obj_Word.Visible = True ' Set obj_WDoc = obj_Word.Documents.Add ' obj_WDoc.Activate ' ' str_Str = " " + _ obj_Excel.Name + ", " + _ obj_ESheet.Name ' obj_Word.Selection.TypeText (str_Str) obj_Word.Selection.TypeParagraph ' str_Str = "" ' ' ' For i = 1 To obj_Range.Rows.Count For j = 1 To obj_Range.Columns.Count str_Str = str_Str & obj_Range.Cells(i, j) & ", " Next j ' 2 ࠠ str_Str = Mid(str_Str, 1, Len(str_Str) - 2) ' Word obj_WDoc.Activate ' obj_Word.Selection.TypeText (str_Str) obj_Word.Selection.TypeParagraph str_Str = "" Next i

16.3. MS Word MS Excel

MS Word, . MS Excel , , , MS Excel. , 10 , ( 16.4.).
' MS Excel Dim obj_Excel As Excel.Application ' Dim obj_Workbook As Excel.Workbook ' Dim obj_Worksheet As Excel.Worksheet ' MS Word Dim obj_Range As Word.Range ' , ' Dim num_Counter ' Dim num_Words ' ' Set obj_Range = Selection.Range ' MS Excel Set obj_Excel = New Excel.Application ' Excel Set obj_Workbook = obj_Excel.Workbooks.Add ' Set obj_Worksheet = obj_Workbook.Worksheets(1) ' ' - - ' 10 num_Counter = obj_Range.Words.Count \ 10 ' For i = 1 To num_Counter For j = 1 To 10 ' 1 𠠠 ' ࠠ num_Words = num_Words + 1 ' 򠠠 obj_Worksheet.Cells(i, j) = _ obj_Range.Words.Item(num_Words) Next j Next i ' 10 ' , ' ' num_Counter = obj_Range.Words.Count - _ (obj_Range.Words.Count \ 10) * 10 ' For j = 1 To num_Counter num_Words = num_Words + 1 obj_Worksheet.Cells(i, j) = _ obj_Range.Words.Item(num_Words) Next j ' , ' obj_Worksheet.Columns("A:J").AutoFit ' - MsgBox (" 1,2,3,4 " & _ obj_Excel.WorksheetFunction.Sum(1, 2, 3, 4)) MsgBox (" " + _ obj_Workbook.Name) ' 젠 'MS Excel, obj_Excel.Visible = True

16.4. MS Excel MS Word

Database.accdb, C.

. QueryTable - , , .

OpenDatabase QueryTable

16-04-Excel OpenDatabase.xlsm - . 16.3.1.

Microsoft Excel, - . OpenDatabase. , , . Excel , , Excel.

:

OpenDatabase(Filename, CommandText, CommandType, BackgroundQuery, ImportDataAs)

.

Filename - .

CommandText - . , .

CommandType - - xlCmdCube (), xlCmdList (), xlCmdSql (SQL), xlCmdTable ().

BackgroundQuery - True - , False - .

ImportDataAs - . - - xlPivotTableReport ( - Pivot Table), - xlQueryTable ( QueryTable - ).

, , . , - , . , - . OpenDatabase MS Excel. , C:, - Database.accdb. MS Excel , ( 16.5.)

Workbooks.OpenDatabase _ Filename:="C:\Database.accdb", _ CommandText:="", _ CommandType:=xlCmdTable, _ BackgroundQuery:=True, _ ImportDataAs:=xlQueryTable

16.5. QueryTable

, , , .

.1. QueryTable

PivotTable, ( 16.6.) - Click -.

Workbooks.OpenDatabase _ Filename:="C:\Database.accdb", _ CommandText:="", _ CommandType:=xlCmdTable, _ BackgroundQuery:=True, _ ImportDataAs:=xlPivotTableReport

16.6. PivotTable



. 2. MS Excel

.

ADO

16-05-Excel ADODB Query.xlsm - . 16.3.2.

QueryTable , .

QueryTable QueryTables. - Add - . Add :

WorkBook. QueryTables.Add(Connection, Destination)

Connection ADODB.Recordset, , Destination - Range, ( ), QueryTable. Destination , .

ADO. , References Microsoft ActiveX Data Object 2.8 Library - , ADODB.

ADO - . ADO. ADO.

- - ADODB.Connection, . Connection ConnectionString - , , - . Open Connection , ConnectionString.

- - ADODB.RecordSet - .

Open, , - .

. Query Table RecordSet, , ( 16.7.).

' 'Query Table Dim obj_Query As QueryTable ' ' Dim obj_ADOConn As ADODB.Connection ' , ' Dim obj_ADORec As ADODB.Recordset ' A5 ' Query Table ' - If ActiveSheet.Range("A5") <> "" Then MsgBox " Query Table " Else ' Set obj_ADOConn = New ADODB.Connection ' ConnectionString '. Provider - , ' ', - Data Source ' obj_ADOConn.ConnectionString = _ "Provider=Microsoft.ACE.OLEDB.12.0;" & _ "Data Source=C:\Database.accdb" ' obj_ADOConn.Open ' RecordSet ' Set obj_ADORec = New ADODB.Recordset ' ' Source 'SQL- ' ActiveConnnection - obj_ADORec.Open _ Source:="SELECT * FROM ", _ ActiveConnection:=obj_ADOConn ' Query Table, ' ' RecordSe Set obj_Query = _ ActiveSheet.QueryTables.Add _ (obj_ADORec, Range("A5")) ' Refresh ' , ' obj_Query.Refresh End If

16.7. ADO

- SQL-, .

1. ?

2. MS Excel MS Word ?

3. ?

4. OpenDatabase QueryTable

5. ADO?

 

Import
Data ә
Inquiry ұқ
Database ә
Mechanism
Disk
Model


1.Given the following piece of code from a function MyCalls(IF Calls_per_Day=>15 Then MyCalls=Fill up your balance! Else MyCalls=Balance-Calls*RateEnd If), decide on correct data type that should be used to declare the function:

  1. Variant
  2. Long
  3. Double
  4. Single

 

2. HTML , . ?

  1. 1
  2. 5
  4. 2

 

3. String MySubject=1c;Enterprise 8.0. String upper case(capital letters)?

  1. UCase (MySubject) and UCase(1C:Enterprise 8.0)
  2. UCase (MySubject)
  3. UCase(1C:Enterprise 8.0)
  4. UCase(1C:Enterprise 8.0)

 

4. HTML

  1. <BgColor>
  2. <HTML>...</HTML>
  3. <FONT>...</FONT>
  4. <P>...</P>

 

 

5. HTML a?

  1. <FONT>...</FONT>
  2. <HTML>...</HTML>
  3. <BODY>...</BODY>
  4. <P>...</P>

 

6. HTML

  1. <P>...</P>
  2. <HTML>...</HTML>
  3. <BODY>...</BODY>
  4. <FONT>...</FONT>

 

7. ...

  1. MS Power Point
  2. MS Word
  3. MS Excel
  4. MS Access

8. MySong =Green Light. (loop) For i=Len(MySong) To 1 Step 2 :

  1. 6
  2. 13
  3. 11
  4. 8

VBA (4-5 )

.

1. . . , ., , 2008.

2 Internet : http://www.intuit.ru/studies/courses/3735/977/info

 

3 23-24 . . 4-, 3- 5, 7 2018-2019 .

⇐ 567891011121314 ⇒


:

: 2018-10-17; !; : 241 |

:

:

.
==> ...

1606 - | 1460 -


© 2015-2024 lektsii.org - -

: 0.035 .