Past-Iven ignorantly used joins a decade ago. Made no sense to him then. Now the terminology means a lot more. Granted Access didn't teach me much with drag-n-drop-make-it-work coding.
mumble mumble Excel hiding mumble behind the curtain mumble...
@SmileyFtW disk fragmentation? slow or defective HDD? Export Project is really just iterating all components and exporting them - nothing special going on here. Are other I/O operations abnormally slow otherwise?
I have by the way started working on duga.zomis.net - but it's not fully feature-complete yet. I think it allows you to view all the webhooks, but not change them.
Weird... In my Access code, I've got Set SurveyRpt = XLobj.Workbooks.Open(ExcelFileName). I've just double-checked to confirm that ExcelFileName is as expected and that the file exists.
I'm getting an error 1004 "Sorry, we couldn't find C:\Users\<user>\AppData\Local\Microsoft\Windows\INetCache\Cont Is it possible it was moved, renamed or deleted?"
That directory doesn't seem to exist, so I've got 2 issues:
1) Why does it no longer exist? (Will simply opening IE or Edge recreate it?)
@FreeMan Microsoft Teams kept me up last night... nightmares about someone training a group yesterday who only knew how to use what they use in it, and he kept calling it "a child of SharePoint". I blame microsoft for the Teams debacle... ='/
yeah. there ain't no borken like Microsoft borken.
someone here works with Word on a regularish basis. All my knowledge (based on 5 minutes of DDGing) indicates that it's still not possible (in O365/2019) to do a mail merge to individual documents without involving VBA. Is that correct?
not sure I'm following @this. This is a "hey, you know something about VBA, can you help me" project, so it's not mine. The data to be merged is in Excel. I've found some references to being able to save the output as a PDF then use a tool to split the PDF into pages.
Last time they asked about this, they only had the output of a merge someone else did, so I wrote some code to split out the individual pages into individual files.
This time, they're in control of the merge, so I figured there had to be a way of splitting it out during the merge process to eliminate any post-processing. I've found some code to do that, but there doesn't seem to be any native way of doing that within the merge setup itself.
What does having the data in a single Access table buy me that having it in Excel does not?
I can't imagine that the 1000s of people who do mail merges every day are firing up Access when they have all the database tools they need right there in Excel.
@MathieuGuindon Relatively new machine, but I'll check the health of everything. The thing that gets me is that it is very fast when I first open the Excel file, but seems to deteriorate during a session. Hence, I'm not leaning to a hardware issue as the culprit
And a happy day today. Just upgraded my third monitor from a 20" to a 27".... woo hoo!
now it's sports cars with screens. I mean, they don't bill the Tesla as a sports car, I guess because 0-60 in 2.4 seconds is, frankly, hypercar territory, not sports car. And those things have screens everywhere. Rather stupidly, IMNSHO.
@this Well, Teams is just an interface, built on a web-browser (i think MS used Chromium, similar to their next installment of Edge or whatever will be on Chromium) to interface with a SharePoint site, incorporate Lync (Skype, whatever), and other Office tools
that's what it has become since 2018 changes to the basic infrastructure, and with the recent 2019Q4 change to not actually incorporate Skype (they are intending to leave Lync/Skype modules in their own space which will be called/accessed) as part of the basic infrastructure due to the other development issues... that "may" come later
i pulled up the roadmap while in that training, cringing the whole time
Microsoft had Lync (and subsequently Lync365) back in ~2010; when they acquired Skype, they basically rewrote a bunch of assets for Lync to fit the Skype model (which is why the system files still reference Lync). Because they did that, and as I read in a blog about the situation, it's spaghetti and de-tangling that would be too much time/effort, they are going to leave those in the background
so they won't allow you to open those as standalone applications anymore, they are only accessible via Teams; the plan was that Teams was going to have its own chat system that replaced those completely
Yeah that's what I thought - they would do away with Skype / Lync altogether.
But based on what you're saying, they're just going to mutate Teams into a three-headed frankenstein of a chat system. Sure, the 2 other heads are sleeping but it's still a frankenstein.
@Cyril wait, so Skype as a stand-alone program is going away? Completely? So I won't be able to use it to see my grandkids?
Trust me. Having MS own Skype is annoying enough, I won't use any sort of Teams server to personal family conversations.
Of course, finding a reasonable, stand-alone, not owned (read: data-mined) by a mega-corp, communication platform of any sort is darn near impossible these days.
@this that's good to know. MS would shoot themselves in the foot if they did. People would have to switch to Google's Duo in order to have a Facetime alternative for non-iOS users. Of course, MS has shot themselves in the foot before...
@this yeah, well, giving them the benefit of the doubt. They hire people pretty regularly, and what with the popularity of all the gun-control, magazine size regulations being passed, it takes a while to shoot 'em all in both feet.
@FreeMan My understanding is that yes, Skype for Business is going away. That is a separate product from Skype standalone, which does not require the Office platform.
@Cyril if that's actually true for WhatsApp, then I have 0 confidence at all in it's "end-to-end" encryption. However, I understood that it's been somewhat independently verified as being legit.
The articles I can find on the topic are older, back when they were actively letting governments into their backside to review and track people (2017 and before)
@M.Doerner I'm in agreement with you, but just because they won't their own citizens use it doesn't imply that they're not interested in spying on other countries citizens.
@M.Doerner after it was bought by Facebook, which is blocked in China, I believe WhatsApp was still allowed on phones as a standalone application (going by recollection, so grain of salt). Before it was bought, there were many issues where China was getting into the data for it (I think there's a CNN article that caused China to attempt to Discredit CNN which came out in 2016 or 2017)
Yeah, but they don't make the money now like they used to. Maybe better than the average bear, but not wealth. #WorksForHospitalSystem #HearsTheComplaints
@FreeMan Interesting. Last time I read on the subject, it reported that a good % of private doctors make extra money on the kickbacks they get from the pharmas.
After some sleuthing, I've discovered that I've actually got the fixed code as my most recent export, so I imported it. When I tried to save, Excel puked an error saying it couldn't save it properly. So I saved it to an alternate directory, just to be safe. It puked trying to save that copy.
The good news is that this one completely build the worksheets it needs on the fly, so if I have to, I can start with a completely blank workbook and import the code.
> # [Codecov](https://codecov.io/gh/rubberduck-vba/Rubberduck/pull/5384?src=pr&el=h1) Report > :exclamation: No coverage uploaded for pull request head (`LetDeclarationInspectionsUseBaseClasses@940eb7e`). [Click here to learn what that means](https://docs.codecov.io/docs/error-reference#section-missing-head-commit). > The diff coverage is `n/a`.
What we could do is to not have the generic property on the interface IInspectionResult and force each consumer that needs the property to cast to IInspectionResult<T>.
> # [Codecov](https://codecov.io/gh/rubberduck-vba/Rubberduck/pull/5384?src=pr&el=h1) Report > :exclamation: No coverage uploaded for pull request base (`next@e7590af`). [Click here to learn what that means](https://docs.codecov.io/docs/error-reference#section-missing-base-commit). > The diff coverage is `10.32%`.
@MathieuGuindon TBH, in my reading (usually from Castle Windosr & reflection in general), I've seen people refer to that as simply "closed generic type"
I made a copy of the xlsx in MyDocuments. I imported all my code and saved. Then I get a pop-up in Excel The document was saved successfully, but Excel cannot re-open it because of a sharing violation. Please close the document and try to open it again.
interesting. I can save it without error until I run my code import routine.
code import has worked in the past.
importing with Application.VBE.ActiveVBProject.VBComponents.Import localPath & file
RD has an export project, but no import project, right?
gonna have to start with a new XLSM, import & save one module at a time and see if I find something that breaks it, or if it's just that this existing file is somehow corrupt
I can see this as a Twilight Zone episode --- did they make it so that it would frustrate & infuriate the power users who are more likely to trip into that while the total noobs continue on happily with their spreadshits spreadsheets? dun dun dunnn...
For Each component In Application.VBE.ActiveVBProject.VBComponents
If component.Type = vbext_ct_ClassModule Or component.Type = vbext_ct_StdModule Then
component.Export localPath & component.Name & ToFileExtension(component.Type)
Debug.Print "Exporting "; component.Name
End If
Next
While (file <> vbNullString)
If Left$(file, 1) <> "." And file <> "SourceControl.bas" Then 'ignore hidden files used for git and this module - it's not pretty
Application.VBE.ActiveVBProject.VBComponents.Import localPath & file
Debug.Print "Importing: "; file
End If
file = Dir
Wend
> # [Codecov](https://codecov.io/gh/rubberduck-vba/Rubberduck/pull/5384?src=pr&el=h1) Report > :exclamation: No coverage uploaded for pull request base (`next@e7590af`). [Click here to learn what that means](https://docs.codecov.io/docs/error-reference#section-missing-base-commit). > The diff coverage is `10.32%`.
@MathieuGuindon considering you can edit & continue, it kind of makes sense that you can compile in break mode (and even if you don't, it'll get compiled anyway).
that's what Excel & Word calls it from the host side, yeah
Yeah and it's a button in VBIDE toolbar, next to the stop button.
Whenever one opens a Office document in "protected view" (or "Enable the contents" in Access), the VBIDE is automatically set to "design mode" and you can't do much (and get annoying dialogs as a bonus).
@this I think that link I posted earlier has a hint. It seems like it saves the doc to a temp file, deletes the original, then renames the temp to the original name.
Ugh. Damned extensible COM interfaces... so, Workbook is extensible, which means anything goes and Option Explicit can't save you. One more reason to early-bind Workbook member calls! Member not on interface inspection is correctly fired for it though. — Mathieu Guindon1 min ago
in trying to refactor about 15 terms, i had to click the refresh button between refactors, wait ~3 seconds for the parse to finish, then would select the term, right click it, then have to wait an additional 3~5 seconds before refactor became an option, and even then, the IDE would re-select the last changed term, ignoring what I had just selected to begin refactoring. Does that sound common?
that ended up being about 20 minutes of my time
mind you, that's probably about the same amount of time it would take me to manually do that activity
not positive if the refresh thing is directly related to this particular VBAProject (14 standard modules, 3 userforms, and of the 9 sheets 5 have change_events... i think it's around 80 individual subs)
@this thought about that... i was going through line by line since i have the same terms in multiple functions
example:
Function TestHours(testName As String, sampleCount As Long)
Application.Volatile (True) 'Makes the calculation apply after every change, including changes to test-list hours
Dim testNameRange As Range, setupHourRange As Range, sampleHourRange As Range, samplePerSetupRange As Range
Set testNameRange = Sheets("Test List").Columns(1)
Set setupHourRange = Sheets("Test List").Columns(3)
Set sampleHourRange = Sheets("Test List").Columns(4)
Set samplePerSetupRange = Sheets("Test List").Columns(5)
> # [Codecov](https://codecov.io/gh/rubberduck-vba/Rubberduck/pull/5384?src=pr&el=h1) Report > :exclamation: No coverage uploaded for pull request base (`next@e7590af`). [Click here to learn what that means](https://docs.codecov.io/docs/error-reference#section-missing-base-commit). > The diff coverage is `19.39%`.
@Cyril the problem with With Sheets("...") and With Worksheets("...") is that both Sheets and Worksheets return Object, which makes everything qualified by the With block variable, implicitly late-bound
guess i will fix that... was going to do the same thing for With Application which will help break-up the indenting and readability
updated:
Function TestHours(testName As String, sampleCount As Long)
Application.Volatile (True) 'Makes the calculation apply after every change, including changes to test-list hours
Dim testListSheet As Worksheet
Set testListSheet = Sheets("Test List")
Dim testNameRange As Range, setupHourRange As Range, sampleHourRange As Range, samplePerSetupRange As Range
Set testNameRange = testListSheet.Columns(1)
Set setupHourRange = testListSheet.Columns(3)
Set sampleHourRange = testListSheet.Columns(4)
VBA Rubberducking
VBA Rubberducking