vbscript,Code片段,代码实例,代码示例,代码片段库

vbscript AutoWidth

Anchoautomáticaparalas columnas en ese rango。

autoWidth

xlWorkSheet.Range("A1:G1").EntireColumn.AutoFit()

vbscript Negrita en excel

En un excel dede especifica un rango de celdasqueestaránnenegrita

negritaExcel

xlWorkSheet.Range("A1:G1").Font.Bold = True

vbscript Crear excel y rellenarlo

create excel

Private Sub Button1_Click(ByVal sender As System.Object,_
	 ByVal e As System.EventArgs) Handles Button1.Click
  Dim xlApp As Excel.Application
  'xlApp.Visible = True 'con esta linea se ve el excel
  'xlApp.Workbooks.Open(Path) 'para abrir un excel
  Dim xlWorkBook As Excel.Workbook
  Dim xlWorkSheet As Excel.Worksheet
  Dim misValue As Object = System.Reflection.Missing.Value
  
  xlApp = New Excel.Application
  xlWorkBook = xlApp.Workbooks.Add(misValue)
  xlWorkSheet = xlWorkBook.Sheets("sheet1")
  xlWorkSheet.Cells(1, 1) = "http://vb.net-informations.com"
  xlWorkSheet.SaveAs("C:\vbexcel.xlsx") 'se puede comentar esta linea si se quiere ver el excel y guardar de forma manual
  xlWorkSheet.SaveAs("C:\vbexcel.xlsx", Excel.XlFileFormat.xlExcel8) ' con formato
  xlWorkBook.Close()
  xlApp.Quit()

  releaseObject(xlApp)
  releaseObject(xlWorkBook)
  releaseObject(xlWorkSheet)

  MsgBox("Excel file created , you can find the file c:\")
End Sub

Private Sub releaseObject(ByVal obj As Object)
  Try
      System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)
      obj = Nothing
  Catch ex As Exception
      obj = Nothing
  Finally
      GC.Collect()
  End Try
End Sub

vbscript Открыть«Visual Basic»послезапуска«Excel»。

Office VBA_4

Private Sub Workbook_Open()
    Application.VBE.MainWindow.Visible = True
    Me.VBProject.VBComponents("Module1").Activate
End Sub

vbscript Вставитьтекств“Примечание”

* Excel●Надстройки; ●RightClickMenu; ●快速访问工具栏 - тоестькодкнемуимеетотношение！

Office XML_12

myComm.Text Text:="Вставить свой текст"

vbscript Кнопкавконцесвосклицательнымзнаком。

Кнопкудобавитьвконце（передзакрывающимтэгом“gallery”）напримергалереи。 * Excel●Надстройки; ●RightClickMenu; ●快速访问工具栏 - тоестькодкнемуимеетотношение！

Office XML_11

<button id="rxbtn"
  imageMso="RefreshStatus"
  label="Visit Efteling.com..."
  onAction="rxbtn_Click"/>

Office VBA_3

Sub rxbtn_Click(control As IRibbonControl)
'Этот код будет выполняться при нажатии на кнопку в нижней части галереи
    ActiveWorkbook.FollowHyperlink "http://www.efteling.com/"
End Sub

vbscript Добавитьужевстроеннуюкнопку“Office”。

* Excel●Надстройки; ●RightClickMenu; ●快速访问工具栏 - тоестькодкнемуимеетотношение！

Office XML_10

<control idMso="ShapeChangeShapeGallery" label="Изменить Фигуру"/>

vbscript Добавитьнадстройкупередвкладкой“Главная”。

Вовремяоткрытиякнигимогутпроявитсяошибки，которыенеопределилисьилибылипроигнорированынаэтапевалидации（F7） - “Ribbon XML Editor”。 ЧтобыExcel中намсообщалоних，следуетвключитьвнёмгалочкунапротивпунктанастроек：Файл>Параметры>Дополнительно>Общие>Показыватьошибкиинтерфейсапользователянадстроек。 * Excel●Надстройки - тоестькодкнемуимеетотношение！

Office XML_8

<tab id="mytab" label="My_Macros" insertBeforeMso="TabHome">

vbscript Заголовоккнопки/кнопок。

labelControl - будетслева。 Пример：имеем3кнопккипогоризонталииувсехпараметрshowLabel = “假”，сначаласправабудетзаголовокапотомпойдут3кнопкипопорядку（касающиесяопределённойтематики）。 * Excel●Надстройки; ●RightClickMenu; ●快速访问工具栏 - тоестькодкнемуимеетотношение！

Office XML_5

<box id="__BoxInsert4" boxStyle="horizontal">
    <labelControl id="__lcAll" label="Разное:"/>
    <control idMso="BreaksGallery" showLabel="false"/>
</box>

vbscript 分隔器

Полосадоконцакнопокнагруппе。 * Excel●Надстройки; ●RightClickMenu; ●快速访问工具栏 - тоестькодкнемуимеетотношение！

Office XML_4

<separator id="__sep" />