小编Tin*_*Man的帖子

在将我的分析器从ProcessID写入VBA创建IE对象时，我遇到了这种奇怪的行为。请注意，即使win未将变量设置为IWebBrowser对象，也仍然Set是该IWebBrowser对象。

我想念什么吗？？？请问Matt，Continium，ThunderFrames ...有人喜欢Set me Straight吗？

Sub WierdBehavior()
    Dim win As Variant
    win = CreateObject("Shell.Application").Windows
    Debug.Print IsObject(win), TypeName(win)
End Sub

我在引导程序 4 中隐藏模态时遇到问题。在我的 tmp 函数中，我必须在此之后关闭模态，我需要使用方法 update_table(url)

HTML 和 JS

<div class="modal" id="Modal" tabindex="-1" role="dialog"></div>

<script src="https://ajax.googleapis.com/ajax/libs/jquery/1.12.4/jquery.min.js"></script>

<script src='https://cdnjs.cloudflare.com/ajax/libs/jquery/3.2.1/jquery.min.js'></script>
<script src="https://cdnjs.cloudflare.com/ajax/libs/popper.js/1.12.9/umd/popper.min.js"
        integrity="sha384-ApNbgh9B+Y1QKtv3Rn7W3mgPxhU9K/ScQsAP7hUibX39j7fakFPskvXusvfa0b4Q"
        crossorigin="anonymous"></script>
<script src="https://maxcdn.bootstrapcdn.com/bootstrap/4.0.0/js/bootstrap.min.js"
        integrity="sha384-JZR6Spejh4U02d8jOt6vLEHfe/JQGiRRSQQxSfFWpi1MquVdAyjUar5+76PVCmYl"
        crossorigin="anonymous"></script>


<script type="text/javascript">
    function abrir_modal(url) {
        $('#Modal').load(url, function () {
            $(this).modal('show');
        });
        return false;
    }

    function tmp(url) {

        $('#Modal').on('shown.bs.modal', function (e) {
            $("#Modal").modal('hide');
        })
            update_table(url);


    }

    function update_table(url) {
        $.ajax({
            type: "GET",
            url: url
        })
            .done(function () {
                refresh_table();
            });
    }

    function refresh_table() {
        $.ajax({
            type: "GET",
            url: "{% url 'Project:Task_Schedule_TableView' %}"
        })
            .done(function (response) …

我创建了一个简单的VBA宏,我针对我在excel中打开的CSV文件运行.此宏格式化工作表,删除某些数据,插入列等.然后将格式正确的CSV复制到将数据导入ERP的服务器.CSV文件是物料清单,一切都很好.我想知道它是否可以简化.当我将这个宏作为excel加载项导入,而不是显示一个宏时,它显示宏中的所有各种子例程,以及按我需要它们运行的​​顺序调用所有其他子的主子.有没有更好的方法来安排这个代码？

Sub ProcessBOM()
    Call DeleteColumn
    Call DelBinFill
    Call DelBlankRows
    Call Insert3Columns
    Call DelRow1
    Call ClearColumns
    Call InsertProjectName
    Call InsertLineItemNo
    Call InsertEA
    Call MoveColumn
    Call InsertDate
    Call GetUserName
    Call SaveAs
    Call MessageBox
End Sub

'Delete first column
Sub DeleteColumn()
    Columns(1).EntireColumn.Delete
End Sub

'Delete rows containing BIN FILL
Sub DelBinFill()
    Dim i As Integer
    For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
        If Cells(i, 1) = "BIN FILL" Then Cells(i, 1).EntireRow.Delete
    Next i
End Sub

'Delete rows with blank RDI Item …