小编R3u*_*3uK的帖子

我已经多年没用过VB了,所以如果事实证明这很明显,请原谅我.我正在尝试编写一个单词vba宏,用于显示userform的模板,然后根据userform导入fileA.docx,fileB.docx或fileC.docx的内容.(之后我将使用书签填写一些表格数据,我不知道这是否相关).文件A,B和C将包含带有一些基本格式的文本,例如列表,但没什么特别的.

我在网上看到的解决方案可以将文件内容复制到一个新文件,但理想情况下我想将其中一个文件导入到我从模板中获取的新的,当前未命名的文件中.我认为我遇到问题的地方是将选择切换到其中一个文件,然后再回到新的未命名文档,尽管我可以用一只手来确保我也正确地复制.

更新:我做的事情太难了,虽然这里的答案让我指出了正确的方向(谢谢!).最后我才做到了

ThisDocument.Activate

Selection.InsertFile("fileA")

这给了我想要的一切原始转储.

我有一个excel宏,它做了两件非常简单的事情:

1. 它在一个小窗口中显示当前日期和时间.
2. 它将显示复制为文本字符串,以便根据需要粘贴到其他应用程序中.

显示的单元格中包含以下公式:

=TEXT(NOW(),"yyyy.MM.dd hh:mm:ss")

每5秒钟,宏刷新时间和时钟滴答.

我的问题是,当我从单元格复制时间时,我不会始终将内容粘贴到剪贴板.有时单元格内容会发布到剪贴板.我无法弄清楚为什么它有时会起作用而不是其他因为没有很多事情发生.它应该始终有效.

我知道数据不在剪贴板上,因为我可以尝试将剪贴板粘贴到不同的程序,如记事本和其他文本应用程序,没有任何反应.

整个代码都在一个模块中.

     Dim stopSwitch As Integer
     Dim NextTick
     Sub myupdate()
        If ActiveCell.Address = "$B$1" Then
            growWindow ' resize window beyond just clock display
            stopTime '
            Exit Sub ' stop updating
        End If

        Range("a1").Select
        Calculate

        DoEvents
        If ActiveWorkbook.Name = "calendar clock.xlsb" Then shrinkWindow
        NextTick = Now + TimeValue("00:00:05") ' give me 5 seconds to copy/paste
        Application.OnTime NextTick, "myupdate"
        ThisWorkbook.Save ' futile attempt to prevent save dialog
    End Sub

    Sub auto_open()
    ' to stop …

我在工作表上有一个ActiveX Combobox控件,这是_Change事件代码

Private Sub ComboBox1_Change()
  Me.ComboBox1.ListFillRange = "ItemSearch"
  Me.ComboBox1.DropDown
End Sub

当我使用键盘上/下键在列表中移动时,它会自动退出Excel.

有谁知道这个问题的解决方案？我基本上想要一个动态的ComboBox.

我在Cell C13中有一个星期编号,在Cell C14中有一年.

我使用以下公式将其转换为该周数的星期四:

=DATE(C14,1,-6)-WEEKDAY(DATE(C14,1,3))+C13*7

我怎么能用VBA做同样的事情？

我正在尝试创建一个关闭当前表单并打开主窗体的宏.

由于我有这么多表单,并且我需要在所有表单中使用相同的按钮,我想创建一个宏,而不是单独创建每个表单.

有没有办法这样做？

我正在开发一个包含大量数据透视表,数据透视图,切片器和过滤器的大型报表系统.

因此,为了确保所有数据透视表都有正确的源和哪些切片器适用于每一个,我开始研究一个聚合每个数据透视表的有用信息的代码:

Sub Test_2_Pt_Report_by_sheet()
ThisWorkbook.Save
Application.ScreenUpdating = False
    Dim pT As PivotTable, _
        Sl As Slicer, _
        RWs As Worksheet, _
        Ws As Worksheet, _
        pF As PivotFilter, _
        pFL As PivotField, _
        HeaDers As String, _
        TpStr As String, _
        Sp() As String, _
        A()
    ReDim A(20, 0)

Set RWs = ThisWorkbook.Sheets("PT_Report")

HeaDers = "Name/Sheet/Address/Version/Source/SlicerCache/Refreshed/Slicer_Number/Slicers/Slicers_Values" & _
            "ActiveFilters/Filters/ActiveValues/HasChart/Chart_Location/ / / / / / "
For i = LBound(A, 1) To UBound(A, 1)
    A(i, 0) = Split(HeaDers, "/")(i) …

我在刷新单元格的计算时遇到问题。

换句话说，我有很多列，每一列都有一个公式或宏。

但问题是我绝对应该激活Excel选项中的“自动计算”选项，否则我应该保存然后出现新结果。

现在，我会在宏中插入一些可以立即刷新结果的内容。

谢谢

这是我用来动态创建图表的代码Virtual Basic:

Dim Chart As Object
Set Chart = Charts.Add
With Chart
    If bIssetSourceChart Then
        CopySourceChart
        .Paste Type:=xlFormats
    End If
    For Each s In .SeriesCollection
        s.Delete
    Next s
    .ChartType = xlColumnClustered
    .Location Where:=xlLocationAsNewSheet, Name:=chartTitle
    Sheets(chartTitle).Move After:=Sheets(Sheets.count)
    With .SeriesCollection.NewSeries
        If Val(Application.Version) >= 12 Then
            .values = values
            .XValues = columns
            .Name = chartTitle
        Else
            .Select
            Names.Add "_", columns
            ExecuteExcel4Macro "series.columns(!_)"
            Names.Add "_", values
            ExecuteExcel4Macro "series.values(,!_)"
            Names("_").Delete
        End If
    End With
End With

#The CopySourceChart Sub:
Sub CopySourceChart()
    If Not …

如果我想在保存后使用打开的Workbook对象获取Excel文件的全名,但该文件已同步到OneDrive,我会得到一个"https"地址而不是本地地址,其他程序无法解释.
如何获取这样的文件的本地文件名？

示例:
将文件保存到"C:\ Users\user\OneDrive - Company\Documents".
OneDrive进行同步.
查询Workbook.FullName现在显示为"https:// ..."

我需要使用Twitter Bootstrap 3.0制作一个poppos show iframe,它popopver应该根据使用href的onmouseover事件在链接中提供的值显示iframe.

我得到第一个链接工作,但不是在3.0,但在2.0.2,但第二个链接应该改变变量的值,并显示一个不同的iframe,我似乎不知道如何做到这一点.

$(window).load(function(){
var img = '<iframe frameborder="0" scrolling="no" height="220" width="420"
                  src="http://dxlite.g7vjr.org/?dx=LU5DX&limit=10"></iframe>';
$("#blob").popover({title: 'Last 10 spots for the selected station', content: img});
})  

<a href="#" id="blob" class="btn large primary" rel="popover" style="margin-top:
100px">hover for popover</a>

<a href="#" id="blob" class="btn large primary" rel="popover" onmouseover=""var img =
'<iframe frameborder="0" scrolling="no" height="220" width="420"
src="http://google.com"></iframe>';"" style="margin-top: 100px">hover for popover</a>