te')); return $arr; } /* 遍历用户所有主题 * @param $uid 用户ID * @param int $page 页数 * @param int $pagesize 每页记录条数 * @param bool $desc 排序方式 TRUE降序 FALSE升序 * @param string $key 返回的数组用那一列的值作为 key * @param array $col 查询哪些列 */ function thread_tid_find_by_uid($uid, $page = 1, $pagesize = 1000, $desc = TRUE, $key = 'tid', $col = array()) { if (empty($uid)) return array(); $orderby = TRUE == $desc ? -1 : 1; $arr = thread_tid__find($cond = array('uid' => $uid), array('tid' => $orderby), $page, $pagesize, $key, $col); return $arr; } // 遍历栏目下tid 支持数组 $fid = array(1,2,3) function thread_tid_find_by_fid($fid, $page = 1, $pagesize = 1000, $desc = TRUE) { if (empty($fid)) return array(); $orderby = TRUE == $desc ? -1 : 1; $arr = thread_tid__find($cond = array('fid' => $fid), array('tid' => $orderby), $page, $pagesize, 'tid', array('tid', 'verify_date')); return $arr; } function thread_tid_delete($tid) { if (empty($tid)) return FALSE; $r = thread_tid__delete(array('tid' => $tid)); return $r; } function thread_tid_count() { $n = thread_tid__count(); return $n; } // 统计用户主题数 大数量下严谨使用非主键统计 function thread_uid_count($uid) { $n = thread_tid__count(array('uid' => $uid)); return $n; } // 统计栏目主题数 大数量下严谨使用非主键统计 function thread_fid_count($fid) { $n = thread_tid__count(array('fid' => $fid)); return $n; } ?>Excel VBA failing Workbooks.open(variable name) where it used to work - Stack Overflow

科技改变生活-雨落星辰 - 所有的伟大,都源于一个勇敢的开始

    最新消息：雨落星辰是一个专注网站SEO优化、网站SEO诊断、搜索引擎研究、网络营销推广、网站策划运营及站长类的自媒体原创博客
    你的位置： 首页>programmer>Excel VBA failing Workbooks.open(variable name) where it used to work - Stack Overflow

    Excel VBA failing Workbooks.open(variable name) where it used to work - Stack Overflow

    programmeradmin4浏览0评论

    I am working on a 2 workbooks. The first is my main workbook where data gets filled. The second is a workbook where data of the main book gets copied to. Since I work on different computers I created a sheet in the fist workbook containing the filenames and locations. I created a macro in the main to get the location and then using that info to open the second workbook. It worked for a while and now the macro stops every time on the same line.

    Below a part of my Macro

    Sub Create_Highlight()
'
' Ad a VOC Customer Meeting to the sheet
'
    Dim Location As String
    Dim WB1 As Workbook
    Dim WB2 As Workbook
    
    Application.ScreenUpdating = False
    Location = Sheets("User").Range("D33")
         
    'Capture current Workbook
    Set WB1 = ActiveWorkbook
    Sheets("User").Visible = True
    'Capture target Workbook
    Set WB2 = Workbooks.Open(Location)
    WB2.Activate

    When I check the variable Location the information is correct. As said before, it worked but I don't understand why it is not working anymore. First I had the locations hardcoded in there. Obviously that works as well. But I made it first for me, and now coworkers are using it also (with the hardcoded locations) and I want/need more flexibility. I checked the website and maybe the answer is already on here, I did not find it.

    与本文相关的文章

    发布评论

    评论列表(0)

    1. 暂无评论