Question

我已编写代码并收到下标超出范围错误，但我不知道为什么。说实话，我是VBA的新手，并且正在将此前一个问题的方法应用于此实例，但没有成功，我希望有人可以提供帮助;

    public void onActivityResult(int requestCode, int resultCode, Intent intent) {
        super.onActivityResult(requestCode, resultCode, intent);

            if (resultCode == RESULT_OK) {
                String scanContent = intent.getStringExtra("SCAN_RESULT");
                String scanFormat = intent.getStringExtra("SCAN_RESULT_FORMAT");
                Log.d("INHALT", scanContent);
                Log.d("FORMAT", scanFormat);

                switch (requestCode){
                    case (10):{
                        String[] Split = scanContent.split("\\s");
                        String product = Split[0];
                        String label = Split[1];
                        String serial = Split[2];
                        String mac = Split[3];
                        String daaid = Split[4];
                        String bill = Split[5];

                        mydb.insertData(product, label, serial, mac, daaid, bill);
                        break;
                    }
                    case (11):{

                            scannedResult = scanContent;
                            serialScanned = true;
                            Bundle b = new Bundle();
                            b.putString("serialFromScan", scanContent);
                            ListViewFragment LvF = new ListViewFragment();
                            LvF.setArguments(b);

                        break;
                    }
                }
            } else if (resultCode == RESULT_CANCELED) {

                Log.d("TEST", "result_canceled");
            }

    }

我尝试做的是打开每周建立报告文件，然后跳转到该文件中的标签。但是，此选项卡可能会更改，因此对C10的引用正在填写我要激活的选项卡的名称。

因此，例如，打开每周建立报告并激活标签P1 Wk4，使用＆＃34; 1 Wk4＆＃34;存在于C10单元格中。

感谢。

Answer 1

要么：

C10是在打开之前打开下一个工作簿的工作簿中，在这种情况下你需要这样做：

Dim ws As Excel.Worksheet Set ws = ActiveSheet Workbooks.Open Filename:= _ "Q:\Accounts Department\JM Period End ADI\1516\Stats\Period 01\Weekly Establishment Report 2015.xlsx" Sheets("P" & ws.Range("C10").Value).Select

OR C10与工作簿打开时激活的工作表不同。在这种情况下，您需要使用正确的工作表来限定范围，例如：

Workbooks.Open Filename:= _ "Q:\Accounts Department\JM Period End ADI\1516\Stats\Period 01\Weekly Establishment Report 2015.xlsx" Sheets("P" & Sheets(1).Range("C10").Value).Select

我现在要避免整个“没有必要选择任何东西”的演讲......

收到错误消息 - 下标超出范围

1 个答案: